aboutsummaryrefslogtreecommitdiff
path: root/tests/ftp.pm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/ftp.pm')
-rw-r--r--tests/ftp.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/ftp.pm b/tests/ftp.pm
index f7298bce6..5e92ce7f9 100644
--- a/tests/ftp.pm
+++ b/tests/ftp.pm
@@ -25,6 +25,11 @@ BEGIN {
eval {
no warnings "all";
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) {
Time::HiRes::sleep($seconds);
}
- elsif ($seconds > 1 && ($^O eq 'MSWin32' || $^O eq 'msys')) {
- sleep($seconds);
+ elsif ($^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'msys') {
+ Win32::Sleep($seconds*1000);
}
else {
select(undef, undef, undef, $seconds);