From: Mattia Barbon <mbarbon@dsi.unive.it>
Date: Wed, 2 Jan 2002 17:37:28 +0000 (+0100)
Subject: random crash in B::LISTOP::last
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c6b79628012c18b06d27164432d66e56c627b161;p=p5sagit%2Fp5-mst-13.2.git

random crash in B::LISTOP::last
   Message-Id: <3C334558.3906.19CB98D@localhost>

p4raw-id: //depot/perl@14016
---

diff --git a/op.c b/op.c
index ed199b2..5bd6448 100644
--- a/op.c
+++ b/op.c
@@ -5929,6 +5929,8 @@ Perl_ck_fun(pTHX_ OP *o)
 		}
 		break;
 	    case OA_FILEREF:
+                       if(kid==cLISTOPo->op_last)
+                           cLISTOPo->op_last = newop;
 		if (kid->op_type != OP_GV && kid->op_type != OP_RV2GV) {
 		    if (kid->op_type == OP_CONST &&
 			(kid->op_private & OPpCONST_BARE))