From 63983e4c95135b2dd0fa466c28136f053046a340 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 23 Jun 2011 15:01:42 -0700
Subject: [PATCH] proto.t: Test \$ with subcall()->[elem]

This syntax was documented, but there was no test for it.
---
 t/comp/proto.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/comp/proto.t b/t/comp/proto.t
index 241fd82..a982f6a 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
-- 
2.7.4