From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 24 Nov 2011 16:27:13 +0000 (-0800)
Subject: Test ambiguous warning with (;$) proto
X-Git-Tag: accepted/trunk/20130322.191538~1962
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e19a021bac25d4a9fa592e6acced26fe4acfc2b4;p=platform%2Fupstream%2Fperl.git

Test ambiguous warning with (;$) proto
---

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