This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove a no-longer needed lexical from t/op/lop.t
authorNicholas Clark <nick@ccl4.org>
Wed, 29 Aug 2012 20:23:19 +0000 (22:23 +0200)
committerNicholas Clark <nick@ccl4.org>
Wed, 29 Aug 2012 20:23:19 +0000 (22:23 +0200)
Jim Keenan spotted the commented out code referencing the variable $test.
Turns out that it is completely redundant, so its declaration can go too.

t/op/lop.t

index 1ce8c46..bc4eb85 100644 (file)
@@ -12,7 +12,6 @@ BEGIN {
 
 plan tests => 17;
 
-my $test = 0;
 for my $i (undef, 0 .. 2, "", "0 but true") {
     my $true = 1;
     my $false = 0;
@@ -37,7 +36,6 @@ for my $i (undef, 0 .. 2, "", "0 but true") {
     ok( ! $false, "false: $m");
 }
 
-# $test == 6
 my $i = 0;
 (($i ||= 1) &&= 3) += 4;
 is( $i, 7, '||=, &&=');