Integrate perl

[perl5.git] / ext / Time / HiRes / HiRes.xs

diff --git a/ext/Time/HiRes/HiRes.xs b/ext/Time/HiRes/HiRes.xs
index 3db3902..c66b92d 100644 (file)
--- a/ext/Time/HiRes/HiRes.xs
+++ b/ext/Time/HiRes/HiRes.xs
@@ -597,7 +597,7 @@ usleep(useconds)
                }
            } else if (useconds < 0.0)
                croak("Time::HiRes::usleep(%"NVgf"): negative time not invented yet", useconds);
-           usleep((UV)useconds);
+           usleep((U32)useconds);
        } else
            PerlProc_pause();
        gettimeofday(&Tb, NULL);
@@ -620,7 +620,7 @@ sleep(...)
            if (seconds >= 0.0) {
                 UV useconds = (UV)(1E6 * (seconds - (UV)seconds));
                 if (seconds >= 1.0)
-                    sleep((UV)seconds);
+                    sleep((U32)seconds);
                 usleep(useconds);
            } else
                croak("Time::HiRes::sleep(%"NVgf"): negative time not invented yet", seconds);