This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix for [perl #28919] : sometimes the function ck_ftst was trying
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 19 Apr 2004 12:26:35 +0000 (12:26 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 19 Apr 2004 12:26:35 +0000 (12:26 +0000)
to read an op that was just freed, which was obviously illegal.

p4raw-id: //depot/perl@22716

op.c

diff --git a/op.c b/op.c
index 46cc07b..02144e8 100644 (file)
--- a/op.c
+++ b/op.c
@@ -5088,6 +5088,7 @@ Perl_ck_ftst(pTHX_ OP *o)
                gv_fetchpv(SvPVx(kid->op_sv, n_a), TRUE, SVt_PVIO));
            op_free(o);
            o = newop;
+           return o;
        }
        else {
          if ((PL_hints & HINT_FILETEST_ACCESS) &&