From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 24 May 1999 23:31:58 +0000 (+0000)
Subject: change#3455 had a typo
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0b024f3176964b92d73e2032c14ea27f1cae55b7;p=p5sagit%2Fp5-mst-13.2.git

change#3455 had a typo

p4raw-link: @3455 on //depot/perl: 288ec9e31566cfd8e9a63e1dd3d7e670d6e519b8

p4raw-id: //depot/perl@3463
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 3d27aa5..0b524e2 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;