From: Father Chrysostomos <sprout@cpan.org>
Date: Tue, 7 Jun 2011 23:09:17 +0000 (-0700)
Subject: Correct test names in sub_lval.t
X-Git-Tag: accepted/trunk/20130322.191538~3914
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d507ecb9ce86ef53117ff81c35d0686965c6b715;p=platform%2Fupstream%2Fperl.git

Correct test names in sub_lval.t
---

diff --git a/t/op/sub_lval.t b/t/op/sub_lval.t
index a149a38..de4a8cc 100644
--- a/t/op/sub_lval.t
+++ b/t/op/sub_lval.t
@@ -767,6 +767,7 @@ for my $sub (sub :lvalue {$_}, sub :lvalue {return $_}) {
 continue { $suffix = ' (explicit return)' }
 
 # autovivification
+$suffix = '';
 for my $sub (sub :lvalue {$_}, sub :lvalue {return $_}) {
     undef $_;
     &$sub()->[3] = 4;