proto.t: Test \$ with subcall()->[elem]

This syntax was documented, but there was no test for it.

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..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