This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0016644
)
Re: main@20537: WinXP build failed op/time.t test 2
author
Steve Hay
<SteveHay@planit.com>
Fri, 8 Aug 2003 12:42:28 +0000
(13:42 +0100)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 8 Aug 2003 13:12:19 +0000
(13:12 +0000)
Message-ID: <
3F338CA4
.3010503@uk.radan.com>
p4raw-id: //depot/perl@20564
t/op/time.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/time.t
b/t/op/time.t
index
870a8dc
..
2de3a03
100755
(executable)
--- a/
t/op/time.t
+++ b/
t/op/time.t
@@
-34,7
+34,7
@@
ok($now > $beg && $now - $beg < 10, 'very basic time test');
for ($i = 0; $i < 100000; $i++) {
($nowuser, $nowsys) = times;
- $i = 200000 if $nowuser > $beguser && ( $nowsys > $begsys ||
+ $i = 200000 if $nowuser > $beguser && ( $nowsys >
=
$begsys ||
(!$nowsys && !$begsys));
last if time - $beg > 20;
}