From e19a021bac25d4a9fa592e6acced26fe4acfc2b4 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 24 Nov 2011 08:27:13 -0800
Subject: [PATCH] Test ambiguous warning with (;$) proto

---
 t/lib/warnings/toke | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke
index faef138..cb1dbca 100644
--- a/t/lib/warnings/toke
+++ b/t/lib/warnings/toke
@@ -607,6 +607,12 @@ Warning: Use of "rand" without parentheses is ambiguous at - line 3.
 Warning: Use of "rand" without parentheses is ambiguous at - line 8.
 Warning: Use of "rand" without parentheses is ambiguous at - line 10.
 ########
+# [perl #97110]
+sub myrand(;$) { }
+my $a = myrand + 4 ;
+EXPECT
+Warning: Use of "myrand" without parentheses is ambiguous at - line 3.
+########
 # toke.c
 use warnings "ambiguous";
 print for keys %+; # should not warn
-- 
2.7.4