return 0 rather than "" when scalar grep has nothing to iterate

on (brings behavior in line with documentation)

p4raw-id: //depot/perl@3455

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 49db741f82..19bfb2183c 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)
-	    XPUSHs(&PL_sv_no);
+	    XPUSHi(0);
 	RETURNOP(PL_op->op_next->op_next);
     }
     PL_stack_sp = PL_stack_base + *PL_markstack_ptr + 1;