diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-11-17 13:03:39 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-18 17:46:22 -0800 |
| commit | 9710ad417eae30e33b2583df714e850505d81f47 (patch) | |
| tree | c9e2faad84b761c44996bb85beb8e48efdc404d3 | |
| parent | 0d46a4e72ad63da37bc7496303cdf358f3eeaff0 (diff) | |
| download | perl-9710ad417eae30e33b2583df714e850505d81f47.tar.gz | |
Test length() warning with pad vars
| -rw-r--r-- | t/lib/warnings/op | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/lib/warnings/op b/t/lib/warnings/op index b66e7759c7..b8bed271d6 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -930,11 +930,15 @@ length(%a); length(@$a); length(%$a); length($a); +length(my %h); +length(my @a); EXPECT length() used on @array (did you mean "scalar(@array)"?) at - line 3. length() used on %hash (did you mean "scalar(keys %hash)"?) at - line 4. length() used on @array (did you mean "scalar(@array)"?) at - line 5. length() used on %hash (did you mean "scalar(keys %hash)"?) at - line 6. +length() used on %hash (did you mean "scalar(keys %hash)"?) at - line 8. +length() used on @array (did you mean "scalar(@array)"?) at - line 9. ######## # op.c use warnings 'syntax' ; |