From e5edeb50dffa2b3a1d6245f54a443cff2a31eb3f Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 1 Dec 2000 20:23:29 +0000
Subject: Some help for 20001130.011.  Now one gets warnings like "Ambiguous
 -f() resolved as a file test ..."

p4raw-id: //depot/perl@7944
---
 t/pragma/warn/toke | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 't/pragma/warn')

diff --git a/t/pragma/warn/toke b/t/pragma/warn/toke
index 2c9433bd7d..1f8b14283a 100644
--- a/t/pragma/warn/toke
+++ b/t/pragma/warn/toke
@@ -123,6 +123,9 @@ toke.c	AOK
     Ambiguous use of %c resolved as operator %c
         *foo *foo
 
+    Ambiguous -f%c call resolved as a file test		[yylex]
+	sub f { }; -f(0)
+
 __END__
 # toke.c 
 use warnings 'deprecated' ;
@@ -564,3 +567,19 @@ no warnings 'ambiguous';
 "@mjd_previously_unused_array";        
 EXPECT
 Possible unintended interpolation of @mjd_previously_unused_array in string at - line 3.
+########
+# toke.c
+use warnings 'ambiguous';
+sub f { 24 }
+-f("TEST");
+print - f("TEST");
+print -(f("TEST"));
+print -f ("TEST");
+print -f "TEST";
+sub Q { 42 };
+print -Q();
+EXPECT
+Ambiguous -f() resolved as a file test at - line 4.
+Ambiguous -f() resolved as a file test at - line 7.
+-24-2411-42
+
-- 
cgit v1.2.1