This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 28037 broke t/op/each.t when running with TEST.
authorNicholas Clark <nick@ccl4.org>
Tue, 2 May 2006 12:02:32 +0000 (12:02 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 2 May 2006 12:02:32 +0000 (12:02 +0000)
p4raw-id: //depot/perl@28059

t/test.pl

index 1562854..495a93d 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -294,7 +294,9 @@ sub curr_test {
 }
 
 sub next_test {
 }
 
 sub next_test {
+  my $retval = $test;
   $test = $test + 1; # don't use ++
   $test = $test + 1; # don't use ++
+  $retval;
 }
 
 # Note: can't pass multipart messages since we try to
 }
 
 # Note: can't pass multipart messages since we try to