(Retracted by #11285).
Abhijit Menon-Sen [Mon, 9 Jul 2001 07:38:45 +0000 (12:38 +0530)]
Subject: [PATCH] OPpCONST_OCTAL fixes
Message-ID: <20010709073845.A25406@lustre.dyn.wiw.org>

p4raw-id: //depot/perl@11237

op.c

diff --git a/op.c b/op.c
index bb288a3..1790fd6 100644 (file)
--- 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: