Enhance test cleanliness by a very small factor.

p4raw-id: //depot/perl@22372

diff --git a/t/comp/parser.t b/t/comp/parser.t
index 2c25807..92b9a6c 100644 (file)
--- a/t/comp/parser.t
+++ b/t/comp/parser.t
@@ -154,4 +154,5 @@ EOF
     my $x;
     $[ = 1 while $x;
     pass();
+    $[ = 0; # restore the original value for less side-effects
 }