summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-05-24 23:31:58 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-05-24 23:31:58 +0000
commit0b024f3176964b92d73e2032c14ea27f1cae55b7 (patch)
treeb73fa384157aaf005adea562544afb1b1881af38 /pp_ctl.c
parent14218588221b08417dacfb8f157681c6b381b73f (diff)
downloadperl-0b024f3176964b92d73e2032c14ea27f1cae55b7.tar.gz
change#3455 had a typo
p4raw-link: @3455 on //depot/perl: 288ec9e31566cfd8e9a63e1dd3d7e670d6e519b8 p4raw-id: //depot/perl@3463
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 3d27aa5146..0b524e236a 100644
--- 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)
- XPUSHi(0);
+ XPUSHs(sv_2mortal(newSViv(0)));
RETURNOP(PL_op->op_next->op_next);
}
PL_stack_sp = PL_stack_base + *PL_markstack_ptr + 1;