Change 11237 by jhi@alpha on 2001/07/09 14:27:27
Subject: [PATCH] OPpCONST_OCTAL fixes
From: Abhijit Menon-Sen <[EMAIL PROTECTED]>
Date: Mon, 9 Jul 2001 07:38:45 +0530
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/op.c#409 edit
Differences ...
==== //depot/perl/op.c#409 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Mon Jul 9 08:30:05 2001
+++ perl/op.c Mon Jul 9 08:30:05 2001
@@ -2326,7 +2326,11 @@
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:
End of Patch.
