This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate:
authorSADAHIRO Tomoyuki <BQW10602@nifty.com>
Mon, 6 Nov 2006 23:31:50 +0000 (08:31 +0900)
committerNicholas Clark <nick@ccl4.org>
Wed, 14 Feb 2007 00:01:04 +0000 (00:01 +0000)
[ 29215]
Subject: Re: [perl #26136] localtime(3) calls tzset(3), but localtime_r(3) may not.
Message-Id: <20061106233139.A2BC.BQW10602@nifty.com>

[ 29712]
fix occasional op/time.t failure
test 2 uses far more sys than user time, so it's possible to burn
20 secs of wall time without an apparent increase in user time
p4raw-link: @29712 on //depot/perl: 584ba4d5a2c5892744e31d4dc44d2eeeddf5030f
p4raw-link: @29215 on //depot/perl: a8c5b3ccafcbc15c45c2cc8105bb50368b6a22d6

p4raw-id: //depot/perl@30276

t/lib/common.pl

index 36d45f3..2cba490 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 = () ;