mirror of
https://github.com/moparisthebest/curl
synced 2024-08-13 17:03:50 -04:00
tests: use native Sleep function as fallback on Windows
Reviewed-By: Daniel Stenberg Closes #5054
This commit is contained in:
parent
99c688ba21
commit
a6fed41f6f
@ -25,6 +25,11 @@ BEGIN {
|
|||||||
eval {
|
eval {
|
||||||
no warnings "all";
|
no warnings "all";
|
||||||
require Time::HiRes;
|
require Time::HiRes;
|
||||||
|
};
|
||||||
|
# portable sleeping falls back to native Sleep on Win32
|
||||||
|
eval {
|
||||||
|
no warnings "all";
|
||||||
|
require Win32;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -50,8 +55,8 @@ sub portable_sleep {
|
|||||||
if($Time::HiRes::VERSION) {
|
if($Time::HiRes::VERSION) {
|
||||||
Time::HiRes::sleep($seconds);
|
Time::HiRes::sleep($seconds);
|
||||||
}
|
}
|
||||||
elsif ($seconds > 1 && ($^O eq 'MSWin32' || $^O eq 'msys')) {
|
elsif ($^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'msys') {
|
||||||
sleep($seconds);
|
Win32::Sleep($seconds*1000);
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
select(undef, undef, undef, $seconds);
|
select(undef, undef, undef, $seconds);
|
||||||
|
Loading…
Reference in New Issue
Block a user