From 178eff928e12522422417310bee9331fccc184cf Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 2 May 2006 12:02:32 +0000
Subject: [PATCH] Change 28037 broke t/op/each.t when running with TEST.

p4raw-id: //depot/perl@28059
---
 t/test.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/t/test.pl b/t/test.pl
index 1562854056..495a93dbf2 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
-- 
2.34.1