From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 2 May 2006 12:02:32 +0000 (+0000)
Subject: Change 28037 broke t/op/each.t when running with TEST.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=178eff928e12522422417310bee9331fccc184cf;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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