This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 30276 wasn't meant do mess with t/lib/common.pl. Oops.
authorNicholas Clark <nick@ccl4.org>
Wed, 14 Feb 2007 00:04:54 +0000 (00:04 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 14 Feb 2007 00:04:54 +0000 (00:04 +0000)
Undo the mistake.

p4raw-id: //depot/perl@30277

t/lib/common.pl

index 2cba490..36d45f3 100644 (file)
@@ -16,8 +16,8 @@ $| = 1;
 
 my $Is_MacOS = $^O eq 'MacOS';
 my $tmpfile = "tmp0000";
-1 while -e ++$tmpfile;
-END { 1 while unlink $tmpfile }
+1 while -e ++$tmpfile;
+END { 1 while unlink $tmpfile }
 
 my @prgs = () ;
 my @w_files = () ;