This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct test names in sub_lval.t
authorFather Chrysostomos <sprout@cpan.org>
Tue, 7 Jun 2011 23:09:17 +0000 (16:09 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 8 Jun 2011 03:44:45 +0000 (20:44 -0700)
t/op/sub_lval.t

index a149a38..de4a8cc 100644 (file)
@@ -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;