projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
cbadcae
)
return 0 rather than "" when scalar grep has nothing to iterate
author
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 24 May 1999 05:05:19 +0000
(
05:05
+0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 24 May 1999 05:05:19 +0000
(
05:05
+0000)
on (brings behavior in line with documentation)
p4raw-id: //depot/perl@3455
pp_ctl.c
patch
|
blob
|
history
diff --git
a/pp_ctl.c
b/pp_ctl.c
index
49db741
..
19bfb21
100644
(file)
--- a/
pp_ctl.c
+++ b/
pp_ctl.c
@@
-667,7
+667,7
@@
PP(pp_grepstart)
if (PL_stack_base + *PL_markstack_ptr == SP) {
(void)POPMARK;
if (GIMME_V == G_SCALAR)
- XPUSH
s(&PL_sv_no
);
+ XPUSH
i(0
);
RETURNOP(PL_op->op_next->op_next);
}
PL_stack_sp = PL_stack_base + *PL_markstack_ptr + 1;