From: Mike Guy <mjtg@cam.ac.uk>
Date: Sat, 2 Dec 2000 17:27:13 +0000 (+0000)
Subject: Re: [ID 20001130.011] expression parsing bug ?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7b3fae3c4b820c030a968065a87feacf276c7a7f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {