Bind op fix.

[p5sagit/p5-mst-13.2.git] / t / op / write.t

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