Fix for [perl #28919] : sometimes the function ck_ftst was trying

to read an op that was just freed, which was obviously illegal.

p4raw-id: //depot/perl@22716

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) &&