diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-04 04:57:53 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-04 04:57:53 +0000 |
| commit | 72d9ac97030fabd6670604eb7c98688c37875b99 (patch) | |
| tree | 944665968de8bfbd829da99ef1ab54cbd6b02bf4 /toke.c | |
| parent | 7cb5a46c4c778a2dc597dabbcb43994b849d706d (diff) | |
| download | perl-72d9ac97030fabd6670604eb7c98688c37875b99.tar.gz | |
some compatibility macros were busted
p4raw-id: //depot/perl@4298
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -3603,7 +3603,8 @@ Perl_yylex(pTHX) if (PL_oldoldbufptr && PL_oldoldbufptr < PL_bufptr && - (PL_oldoldbufptr == PL_last_lop || PL_oldoldbufptr == PL_last_uni) && + (PL_oldoldbufptr == PL_last_lop + || PL_oldoldbufptr == PL_last_uni) && /* NO SKIPSPACE BEFORE HERE! */ (PL_expect == XREF || ((PL_opargs[PL_last_lop_op] >> OASHIFT)& 7) == OA_FILEREF)) @@ -5441,7 +5442,8 @@ S_checkcomma(pTHX_ register char *s, char *name, char *what) if (*w) for (; *w && isSPACE(*w); w++) ; if (!*w || !strchr(";|})]oaiuw!=", *w)) /* an advisory hack only... */ - Perl_warner(aTHX_ WARN_SYNTAX, "%s (...) interpreted as function",name); + Perl_warner(aTHX_ WARN_SYNTAX, + "%s (...) interpreted as function",name); } } while (s < PL_bufend && isSPACE(*s)) |