Change 28037 broke t/op/each.t when running with TEST.

p4raw-id: //depot/perl@28059

diff --git a/t/test.pl b/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 {
+  my $retval = $test;
   $test = $test + 1; # don't use ++
+  $retval;
 }
 
 # Note: can't pass multipart messages since we try to