This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix C<$1 .. $2> coredump under debugger
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 20 Jul 1998 00:33:43 +0000 (00:33 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 20 Jul 1998 00:33:43 +0000 (00:33 +0000)
p4raw-id: //depot/perl@1574

pp_ctl.c

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