diff options
| author | Gerard Goossen <gerard@tty.nl> | 2007-06-27 15:04:00 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-07-07 08:07:58 +0000 |
| commit | c631f32bfcc8ba9f8f86e235471af51a82d2b0ee (patch) | |
| tree | 19d22a0677f435cdb07dc8d695f823d16ef9401d /op.c | |
| parent | d5d3e0f0cac42b271aa6d30a69d6eff7e2c063c2 (diff) | |
| download | perl-c631f32bfcc8ba9f8f86e235471af51a82d2b0ee.tar.gz | |
MAD: disable constant subs when PL_madskills
Message-ID: <20070627110400.GC11336@ostwald>
p4raw-id: //depot/perl@31554
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -5095,6 +5095,9 @@ Perl_op_const_sv(pTHX_ const OP *o, CV *cv) dVAR; SV *sv = NULL; + if (PL_madskills) + return NULL; + if (!o) return NULL; |