This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
proto.t: Test \$ with subcall()->[elem]
authorFather Chrysostomos <sprout@cpan.org>
Thu, 23 Jun 2011 22:01:42 +0000 (15:01 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 24 Jun 2011 15:19:26 +0000 (08:19 -0700)
This syntax was documented, but there was no test for it.

t/comp/proto.t

index 241fd82..a982f6a 100644 (file)
@@ -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