The output might have been produced in the wrong order.

Subject: [ID 20000720.003] [PATCH] t/op/write.t
Message-Id: <E13FKRi-0004rF-00@libra.cus.cam.ac.uk>

p4raw-id: //depot/perl@6425

diff --git a/t/op/write.t b/t/op/write.t
index 593c69a..5b01eb7 100755 (executable)
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -200,6 +200,7 @@ $this,$that
     write LEX;
     $that = 8;
     write LEX;
+    close LEX;
 }
 # LEX_INTERPNORMAL test
 my %e = ( a => 1 );