diff options
author | Sam Tregar <sam@tregar.com> | 2002-01-05 19:29:25 -0500 |
---|---|---|
committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-01-06 04:52:50 +0000 |
commit | 420cdfc116ef70c5fc76ac6f0fd68df66919fd46 (patch) | |
tree | 576bd15f4f0b7295bc55a41b75c400563a7d35cc /toke.c | |
parent | 36df99d62e5fb6553737ac83b8d35e75836213ae (diff) | |
download | perl-420cdfc116ef70c5fc76ac6f0fd68df66919fd46.tar.gz |
Bad prototype detection now an optional warning
Message-Id: <Pine.LNX.4.33.0201060023160.3715-200000@localhost.localdomain>
p4raw-id: //depot/perl@14101
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -4968,10 +4968,10 @@ Perl_yylex(pTHX) } } d[tmp] = '\0'; - if (bad_proto) - Perl_warn(aTHX_ - "Illegal character in prototype for %s : %s", - SvPVX(PL_subname), d); + if (bad_proto && ckWARN(WARN_SYNTAX)) + Perl_warner(aTHX_ WARN_SYNTAX, + "Illegal character in prototype for %s : %s", + SvPVX(PL_subname), d); SvCUR(PL_lex_stuff) = tmp; have_proto = TRUE; |