diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-02-25 12:48:22 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-02-25 12:48:22 +0000 |
| commit | c427f4d2d4575fbc8a5190932fe321136c7597b3 (patch) | |
| tree | ba8cce560c51bedf1307426fbc8a73ea64a491f6 /opcode.pl | |
| parent | 553e7bb0c885d7b666ab73f45e41f7e6dab46330 (diff) | |
| download | perl-c427f4d2d4575fbc8a5190932fe321136c7597b3.tar.gz | |
Ensure that constant folding runs with IN_PERL_RUNTIME true, by copying
the current compiling cop to a different address. This ensures that
lexical hints are correctly honoured, and allows us to fold sprintf.
p4raw-id: //depot/perl@33369
Diffstat (limited to 'opcode.pl')
| -rwxr-xr-x | opcode.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -773,7 +773,7 @@ vec vec ck_fun ist@ S S S index index ck_index isT@ S S S? rindex rindex ck_index isT@ S S S? -sprintf sprintf ck_fun mst@ S L +sprintf sprintf ck_fun fmst@ S L formline formline ck_fun ms@ S L ord ord ck_fun ifsTu% S? chr chr ck_fun fsTu% S? |