From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 31 Aug 2005 14:14:21 +0000 (+0000)
Subject: Fix for [perl #37036] perl segfault at 'compile'-time
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea1d064a0a997a28f8265a165120fea0d04e9a22;p=p5sagit%2Fp5-mst-13.2.git

Fix for [perl #37036] perl segfault at 'compile'-time

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

diff --git a/op.c b/op.c
index 4e21c7f..c0cca4e 100644
--- a/op.c
+++ b/op.c
@@ -5896,6 +5896,7 @@ Perl_ck_open(pTHX_ OP *o)
 	     (last->op_private & OPpCONST_STRICT) &&
 	     (oa = first->op_sibling) &&		/* The fh. */
 	     (oa = oa->op_sibling) &&			/* The mode. */
+	     (oa->op_type == OP_CONST) &&
 	     SvPOK(((SVOP*)oa)->op_sv) &&
 	     (mode = SvPVX_const(((SVOP*)oa)->op_sv)) &&
 	     mode[0] == '>' && mode[1] == '&' &&	/* A dup open. */