diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-19 05:44:20 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-19 05:44:20 +0000 |
commit | 34d09196f6a006314d7ea49a091a30ce5ee08bff (patch) | |
tree | b65cd7762db1fdf88369274697efeec8fd03d22c /op.c | |
parent | e28598cb7aa92733a853cea0cf64bb1d19ec6745 (diff) | |
download | perl-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.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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; |