From: Abhijit Menon-Sen <ams@wiw.org>
Date: Mon, 9 Jul 2001 07:38:45 +0000 (+0530)
Subject: (Retracted by #11285).
X-Git-Tag: accepted/trunk/20130322.191538~30970
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d838e05bedd275d1af16fc01a717648b4dafd14f;p=platform%2Fupstream%2Fperl.git

(Retracted by #11285).

Subject: [PATCH] OPpCONST_OCTAL fixes
Message-ID: <20010709073845.A25406@lustre.dyn.wiw.org>

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

diff --git a/op.c b/op.c
index bb288a3..1790fd6 100644
--- a/op.c
+++ b/op.c
@@ -2326,7 +2326,11 @@ Perl_fold_constants(pTHX_ register OP *o)
 	    SvIV_please(sv);
 #endif
 	}
-	return newSVOP(OP_CONST, 0, sv);
+	o = newSVOP(OP_CONST, 0, sv);
+	/* We don't want folded constants to trigger OCTMODE warnings,
+	   so we cheat a bit and mark them OCTAL. AMS 20010709 */
+	o->op_private |= OPpCONST_OCTAL;
+	return o;
     }
 
   nope: