diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-11-24 19:20:00 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-24 21:11:05 -0800 |
| commit | b5fb7ce319b450b42f4660d7628cff404a3f29f4 (patch) | |
| tree | bb21013b1794064ed9496d77612801d29f4f6e16 /t | |
| parent | 547ae1291622100dc17f3ab6cb5aac35f22c5e43 (diff) | |
| download | perl-b5fb7ce319b450b42f4660d7628cff404a3f29f4.tar.gz | |
Don’t warn for foo+1 with ($) proto
Commit 22393538 added the warning for (;$) prototypes, but
ended up adding it for ($) as well.
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/toke | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index cb1dbcaf50..95612eb25f 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -609,9 +609,11 @@ Warning: Use of "rand" without parentheses is ambiguous at - line 10. ######## # [perl #97110] sub myrand(;$) { } +sub whatever($) { } my $a = myrand + 4 ; +my $b = whatever + 4 ; EXPECT -Warning: Use of "myrand" without parentheses is ambiguous at - line 3. +Warning: Use of "myrand" without parentheses is ambiguous at - line 4. ######## # toke.c use warnings "ambiguous"; |