summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-02-19 06:53:13 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-02-19 06:53:13 +0000
commit4673fc70de29ec9782a54acc86b498189e02a8e2 (patch)
tree0e2830f6feab909c595c2f646618b170fc8c28bf /op.c
parent657b208b434818aa5e54d68b0a8ad320c0252adf (diff)
downloadperl-4673fc70de29ec9782a54acc86b498189e02a8e2.tar.gz
s/WARN_PRECEDENCE/WARN_BAREWORD/, vide change#5131
p4raw-link: @5131 on //depot/perl: 34d09196f6a006314d7ea49a091a30ce5ee08bff p4raw-id: //depot/perl@5135
Diffstat (limited to 'op.c')
-rw-r--r--op.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/op.c b/op.c
index a9872c2c5b..32eb7b06ed 100644
--- a/op.c
+++ b/op.c
@@ -3514,8 +3514,8 @@ S_new_logop(pTHX_ I32 type, I32 flags, OP** firstp, OP** otherp)
}
}
if (first->op_type == OP_CONST) {
- if (ckWARN(WARN_PRECEDENCE) && (first->op_private & OPpCONST_BARE))
- Perl_warner(aTHX_ WARN_PRECEDENCE, "Bareword found in conditional");
+ if (ckWARN(WARN_BAREWORD) && (first->op_private & OPpCONST_BARE))
+ Perl_warner(aTHX_ WARN_BAREWORD, "Bareword found in conditional");
if ((type == OP_AND) == (SvTRUE(((SVOP*)first)->op_sv))) {
op_free(first);
*firstp = Nullop;