diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2001-07-09 13:08:45 +0530 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-09 14:27:27 +0000 |
| commit | d838e05bedd275d1af16fc01a717648b4dafd14f (patch) | |
| tree | 2112a0a9938a66be760dd2a596e4ff4295597628 /op.c | |
| parent | 58d53262e10d9ded123ab3c776856d53acee44d4 (diff) | |
| download | perl-d838e05bedd275d1af16fc01a717648b4dafd14f.tar.gz | |
(Retracted by #11285).
Subject: [PATCH] OPpCONST_OCTAL fixes
Message-ID: <20010709073845.A25406@lustre.dyn.wiw.org>
p4raw-id: //depot/perl@11237
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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: |