diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2005-07-17 19:02:10 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-07-17 19:02:10 +0000 |
| commit | ce44635a98097a8f9f8acc0fc8393ebd5524dbdf (patch) | |
| tree | 74c83e8100f34dc6f34953480c06a3f0f6b2769a /toke.c | |
| parent | ace7757b19d04728dc05eefe7b371b14d8ce29dd (diff) | |
| download | perl-ce44635a98097a8f9f8acc0fc8393ebd5524dbdf.tar.gz | |
change #25129 was overzealous in delaying the call to ckWARN
p4raw-link: @25129 on //depot/perl: 041457d90dbb6fb79a72c7a8462f01423f2daa09
p4raw-id: //depot/perl@25159
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3515,7 +3515,7 @@ Perl_yylex(pTHX) OPERATOR(','); if (tmp == '~') PMop(OP_MATCH); - if (tmp && isSPACE(*s) && strchr("+-*/%.^&|<",tmp) && ckWARN(WARN_SYNTAX)) + if (tmp && isSPACE(*s) && ckWARN(WARN_SYNTAX) && strchr("+-*/%.^&|<",tmp)) Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "Reversed %c= operator",(int)tmp); s--; if (PL_expect == XSTATE && isALPHA(tmp) && @@ -3685,8 +3685,8 @@ Perl_yylex(pTHX) else if (*s == '{') { char *t; PL_tokenbuf[0] = '%'; - if (strEQ(PL_tokenbuf+1, "SIG") && (t = strchr(s, '}')) - && (t = strchr(t, '=')) && ckWARN(WARN_SYNTAX)) + if (strEQ(PL_tokenbuf+1, "SIG") && ckWARN(WARN_SYNTAX) + && (t = strchr(s, '}')) && (t = strchr(t, '='))) { char tmpbuf[sizeof PL_tokenbuf]; for (t++; isSPACE(*t); t++) ; |