This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: d37f6f5)
Re: [ID 20001130.011] expression parsing bug ?
authorMike Guy <mjtg@cam.ac.uk>
Sat, 2 Dec 2000 17:27:13 +0000 (17:27 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 2 Dec 2000 18:33:05 +0000 (18:33 +0000)
Message-Id: <E142GRN-0003go-00@libra.cus.cam.ac.uk>

An extraneous argument.

p4raw-id: //depot/perl@7958

toke.c patch | blob | blame | history

diff --git a/toke.c b/toke.c
index 28e552b..0c803d4 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2864,7 +2864,7 @@ Perl_yylex(pTHX)
                if (*s == '(' && ckWARN(WARN_AMBIGUOUS))
                    Perl_warner(aTHX_ WARN_AMBIGUOUS,
                                "Ambiguous -%c() resolved as a file test",
-                               tmp, tmp);
+                               tmp);
                FTST(ftst);
            }
            else {
Unnamed repository; edit this file 'description' to name the repository.