diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-06-23 15:01:42 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-06-24 08:19:26 -0700 |
| commit | 63983e4c95135b2dd0fa466c28136f053046a340 (patch) | |
| tree | bb9964f8e222a7b0430d4b155f589a973fdae42f | |
| parent | e2ba0c6ffc4123d75fa6d954775fd2e651d79fe8 (diff) | |
| download | perl-63983e4c95135b2dd0fa466c28136f053046a340.tar.gz | |
proto.t: Test \$ with subcall()->[elem]
This syntax was documented, but there was no test for it.
| -rw-r--r-- | t/comp/proto.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index 241fd829af..a982f6aff2 100644 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -18,7 +18,7 @@ BEGIN { # strict use strict; -print "1..170\n"; +print "1..171\n"; my $i = 1; @@ -544,6 +544,7 @@ sub sreftest (\$$) { sreftest my $sref, $i++; sreftest($helem{$i}, $i++); sreftest $aelem[0], $i++; + sreftest sub { [0] }->()[0], $i++; } # test single term |