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

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 46cc07b029..02144e872b 100644
--- 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) &&