From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 20 Jul 1998 00:33:43 +0000 (+0000)
Subject: fix C<$1 .. $2> coredump under debugger
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=781449de0eec49aa3d5ffc738eb3d41f44325f75;p=p5sagit%2Fp5-mst-13.2.git

fix C<$1 .. $2> coredump under debugger

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

diff --git a/pp_ctl.c b/pp_ctl.c
index c781870..5a4dcf4 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -856,6 +856,7 @@ PP(pp_flop)
 	    char *tmps = SvPV(final, len);
 
 	    sv = sv_mortalcopy(left);
+	    SvPV_force(sv,na);
 	    while (!SvNIOKp(sv) && SvCUR(sv) <= len) {
 		XPUSHs(sv);
 	        if (strEQ(SvPVX(sv),tmps))