From a6fed41f6f12f3b71cfe85609f02a294b972d3d3 Mon Sep 17 00:00:00 2001
From: Marc Hoersken <info@marc-hoersken.de>
Date: Sat, 7 Mar 2020 11:01:57 +0100
Subject: [PATCH] tests: use native Sleep function as fallback on Windows

Reviewed-By: Daniel Stenberg
Closes #5054
---
 tests/ftp.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/tests/ftp.pm b/tests/ftp.pm
index f7298bce61..5e92ce7f94 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);