diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-08-02 18:18:37 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-08-02 18:18:37 +0000 |
| commit | 11fa937b2766784f0f812687a7f81dd3761e605f (patch) | |
| tree | 2c4c9ff107861f412372c6d1cb8271c1ddc67168 /op.c | |
| parent | 412582ad0f710a91b1d05cd009c4bda518bddde8 (diff) | |
| download | perl-11fa937b2766784f0f812687a7f81dd3761e605f.tar.gz | |
optimizations could sometimes bypass bareword check
p4raw-id: //depot/perl@3897
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1890,7 +1890,8 @@ Perl_fold_constants(pTHX_ register OP *o) goto nope; /* Don't try to run w/ errors */ for (curop = LINKLIST(o); curop != o; curop = LINKLIST(curop)) { - if (curop->op_type != OP_CONST && + if ((curop->op_type != OP_CONST || + (curop->op_private & OPpCONST_BARE)) && curop->op_type != OP_LIST && curop->op_type != OP_SCALAR && curop->op_type != OP_NULL && |