From: Chip Salzenberg <salzench@nielsenmedia.com>
Date: Wed, 6 Aug 1997 12:00:00 +0000 (+1200)
Subject: Do not constant-fold ops that depend on locale if C<use locale>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=de939608bd9b236d9170fa8c2bcd0a8b397bba0a;p=p5sagit%2Fp5-mst-13.2.git

Do not constant-fold ops that depend on locale if C<use locale>

p5p-msgid: 199707210519.BAA13785@nielsenmedia.com
---

diff --git a/op.c b/op.c
index d412bcf..b8f363c 100644
--- a/op.c
+++ b/op.c
@@ -1553,6 +1553,16 @@ register OP *o;
     if (!(opargs[type] & OA_FOLDCONST))
 	goto nope;
 
+    switch (type) {
+    case OP_SPRINTF:
+    case OP_UCFIRST:
+    case OP_LCFIRST:
+    case OP_UC:
+    case OP_LC:
+	if (o->op_private & OPpLOCALE)
+	    goto nope;
+    }
+
     if (error_count)
 	goto nope;		/* Don't try to run w/ errors */