This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove duplicate test
authorFather Chrysostomos <sprout@cpan.org>
Sat, 4 Jun 2011 04:50:35 +0000 (21:50 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 4 Jun 2011 04:50:35 +0000 (21:50 -0700)
t/op/sub_lval.t

index 0af4d91..e246336 100644 (file)
@@ -3,7 +3,7 @@ BEGIN {
     @INC = '../lib';
     require './test.pl';
 }
-plan tests=>134;
+plan tests=>133;
 
 sub a : lvalue { my $a = 34; ${\(bless \$a)} }  # Return a temporary
 sub b : lvalue { ${\shift} }
@@ -333,17 +333,6 @@ EOE
 
 is("'@a' $_", "'2 3' ");
 
-$_ = undef;
-@a = ();
-$a[0] = undef;
-$a[1] = 12;
-eval <<'EOE' or $_ = $@;
-  (lva) = (2,3);
-  1;
-EOE
-
-is("'@a' $_", "'2 3' ");
-
 sub lv1n : lvalue { $newvar }
 
 $_ = undef;