This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e2ba0c6
)
proto.t: Test \$ with subcall()->[elem]
author
Father Chrysostomos
<sprout@cpan.org>
Thu, 23 Jun 2011 22:01:42 +0000
(15:01 -0700)
committer
Father 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
patch
|
blob
|
blame
|
history
diff --git
a/t/comp/proto.t
b/t/comp/proto.t
index
241fd82
..
a982f6a
100644
(file)
--- a/
t/comp/proto.t
+++ b/
t/comp/proto.t
@@
-18,7
+18,7
@@
BEGIN {
# strict
use strict;
-print "1..17
0
\n";
+print "1..17
1
\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