This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Enhance test cleanliness by a very small factor.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 24 Feb 2004 22:44:34 +0000 (22:44 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 24 Feb 2004 22:44:34 +0000 (22:44 +0000)
p4raw-id: //depot/perl@22372

t/comp/parser.t

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