From d838e05bedd275d1af16fc01a717648b4dafd14f Mon Sep 17 00:00:00 2001 From: Abhijit Menon-Sen Date: Mon, 9 Jul 2001 13:08:45 +0530 Subject: [PATCH] (Retracted by #11285). Subject: [PATCH] OPpCONST_OCTAL fixes Message-ID: <20010709073845.A25406@lustre.dyn.wiw.org> p4raw-id: //depot/perl@11237 --- op.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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: -- 2.7.4