summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-02-19 05:44:20 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-02-19 05:44:20 +0000
commit34d09196f6a006314d7ea49a091a30ce5ee08bff (patch)
treeb65cd7762db1fdf88369274697efeec8fd03d22c /op.c
parente28598cb7aa92733a853cea0cf64bb1d19ec6745 (diff)
downloadperl-34d09196f6a006314d7ea49a091a30ce5ee08bff.tar.gz
rename "Probable precendence problem" diagnostic to "Bareword found
in conditional" to better reflect the class of error (as suggested by Larry) p4raw-id: //depot/perl@5131
Diffstat (limited to 'op.c')
-rw-r--r--op.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/op.c b/op.c
index 430b11c171..a9872c2c5b 100644
--- a/op.c
+++ b/op.c
@@ -3515,8 +3515,7 @@ 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, "Probable precedence problem on %s",
- PL_op_desc[type]);
+ Perl_warner(aTHX_ WARN_PRECEDENCE, "Bareword found in conditional");
if ((type == OP_AND) == (SvTRUE(((SVOP*)first)->op_sv))) {
op_free(first);
*firstp = Nullop;