From 7b3fae3c4b820c030a968065a87feacf276c7a7f Mon Sep 17 00:00:00 2001
From: Mike Guy <mjtg@cam.ac.uk>
Date: Sat, 2 Dec 2000 17:27:13 +0000
Subject: 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
---
 toke.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'toke.c')

diff --git a/toke.c b/toke.c
index 28e552b2fb..0c803d44c7 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 {
-- 
cgit v1.2.1