From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 19 Apr 2004 12:26:35 +0000 (+0000)
Subject: Fix for [perl #28919] : sometimes the function ck_ftst was trying
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=181bc48df1acbf1e213b165d7e27c61b63e2b13e;p=p5sagit%2Fp5-mst-13.2.git

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