1 files changed, 5 insertions, 1 deletions
diff --git a/op.c b/op.c
index bb288a3576..1790fd685e 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: