diff options
| author | Gerard Goossen <gerard@tty.nl> | 2007-03-29 19:31:32 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-03 16:12:08 +0000 |
| commit | 36dee510cd49a7318e0ddea31b4d74e974725f7d (patch) | |
| tree | ae55531588369bb3138c2e7753358d9d2bad6047 /toke.c | |
| parent | 905bf499e48f6b556b714ac2033461aa4630fb05 (diff) | |
| download | perl-36dee510cd49a7318e0ddea31b4d74e974725f7d.tar.gz | |
Re: [PATCH] MAD disable constant inlining
Message-ID: <20070329153132.GD20231@ostwald>
p4raw-id: //depot/perl@30837
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -5421,8 +5421,9 @@ Perl_yylex(pTHX) PL_nextwhite = 0; } } + else #endif - goto its_constant; + goto its_constant; } } #ifdef PERL_MAD @@ -5469,7 +5470,7 @@ Perl_yylex(pTHX) "Ambiguous use of -%s resolved as -&%s()", PL_tokenbuf, PL_tokenbuf); /* Check for a constant sub */ - if ((sv = gv_const_sv(gv))) { + if ((sv = gv_const_sv(gv)) && !PL_madskills) { its_constant: SvREFCNT_dec(((SVOP*)yylval.opval)->op_sv); ((SVOP*)yylval.opval)->op_sv = SvREFCNT_inc_simple(sv); |