diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-09-26 16:47:32 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-26 16:47:32 +0000 |
| commit | 6d5637c3050c14fb5c11ec5a05db33dce9e4a7a8 (patch) | |
| tree | 2e2a74fb40532f19e27612bdf0b86ae8323fdbce /op.c | |
| parent | 989dfb198ac9ac51842b1c51f1d0abd5c0143573 (diff) | |
| download | perl-6d5637c3050c14fb5c11ec5a05db33dce9e4a7a8.tar.gz | |
#17931 checked for wrong constant
p4raw-id: //depot/perl@17932
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3884,7 +3884,7 @@ S_new_logop(pTHX_ I32 type, I32 flags, OP** firstp, OP** otherp) } if (first->op_type == OP_CONST) { if (ckWARN(WARN_BAREWORD) && (first->op_private & OPpCONST_BARE)) { - if (first->op_private & OPpCONST_BARE) + if (first->op_private & OPpCONST_STRICT) no_bareword_allowed(first); else Perl_warner(aTHX_ packWARN(WARN_BAREWORD), "Bareword found in conditional"); |