From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 2 Aug 1999 18:18:37 +0000 (+0000)
Subject: optimizations could sometimes bypass bareword check
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11fa937b2766784f0f812687a7f81dd3761e605f;p=p5sagit%2Fp5-mst-13.2.git

optimizations could sometimes bypass bareword check

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

diff --git a/op.c b/op.c
index 313cce7..9f92232 100644
--- a/op.c
+++ b/op.c
@@ -1890,7 +1890,8 @@ Perl_fold_constants(pTHX_ register OP *o)
 	goto nope;		/* Don't try to run w/ errors */
 
     for (curop = LINKLIST(o); curop != o; curop = LINKLIST(curop)) {
-	if (curop->op_type != OP_CONST &&
+	if ((curop->op_type != OP_CONST ||
+	     (curop->op_private & OPpCONST_BARE)) &&
 	    curop->op_type != OP_LIST &&
 	    curop->op_type != OP_SCALAR &&
 	    curop->op_type != OP_NULL &&