Re: [ID 20001130.011] expression parsing bug ?

Message-Id: <E142GRN-0003go-00@libra.cus.cam.ac.uk>

An extraneous argument.

p4raw-id: //depot/perl@7958

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 {