(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 (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: