diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-17 01:45:14 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-17 01:45:14 +0000 |
| commit | 4944e2f7e3104099141e13fc5a663be1edbc5ff4 (patch) | |
| tree | 89c4ee5e083fd58de39ffde53ac3802e13d471ee /toke.c | |
| parent | 0640f31bb84d7416f4f8d8cf42a8724fad417771 (diff) | |
| download | perl-4944e2f7e3104099141e13fc5a663be1edbc5ff4.tar.gz | |
suppress bogus warning on C<sub x {} x()>
p4raw-id: //depot/perl@1787
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -2979,7 +2979,8 @@ yylex(void) tmp = -tmp; gv = Nullgv; gvp = 0; - if (ckWARN(WARN_AMBIGUOUS) && hgv) + if (ckWARN(WARN_AMBIGUOUS) && hgv + && tmp != KEY_x && tmp != KEY_CORE) /* never ambiguous */ warner(WARN_AMBIGUOUS, "Ambiguous call resolved as CORE::%s(), %s", GvENAME(hgv), "qualify as such or use &"); |