From: Abhijit Menon-Sen Date: Mon, 9 Jul 2001 07:38:45 +0000 (+0530) Subject: (Retracted by #11285). X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d838e05bedd275d1af16fc01a717648b4dafd14f;p=p5sagit%2Fp5-mst-13.2.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: