In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/df71d98f99064b8112949a5b051443ab812b2911?hp=bc7b0a13068646ea6178a0f9fc07fa0a1d3a7a8c>
- Log ----------------------------------------------------------------- commit df71d98f99064b8112949a5b051443ab812b2911 Author: Nicholas Clark <[email protected]> Date: Mon Oct 12 14:53:52 2009 +0100 Re-order a conditional with ckWARN() last, as it is a function call. ----------------------------------------------------------------------- Summary of changes: toke.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/toke.c b/toke.c index c0eed00..4ace11f 100644 --- a/toke.c +++ b/toke.c @@ -7172,10 +7172,10 @@ S_pending_ident(pTHX) GV *const gv = gv_fetchpvn_flags(PL_tokenbuf + 1, tokenbuf_len - 1, 0, SVt_PVAV); if ((!gv || ((PL_tokenbuf[0] == '@') ? !GvAV(gv) : !GvHV(gv))) - && ckWARN(WARN_AMBIGUOUS) /* DO NOT warn for @- and @+ */ && !( PL_tokenbuf[2] == '\0' && ( PL_tokenbuf[1] == '-' || PL_tokenbuf[1] == '+' )) + && ckWARN(WARN_AMBIGUOUS) ) { /* Downgraded from fatal to warning 20000522 mjd */ -- Perl5 Master Repository
