Change 11409 by nick@camel-linux on 2001/07/19 06:28:08
Subject: [PATCH] Re: Time::HiRes qw(sleep) fails
From: Abhijit Menon-Sen <[EMAIL PROTECTED]>
Date: Thu, 19 Jul 2001 04:30:43 +0530
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Time/HiRes/HiRes.xs#9 edit
Differences ...
==== //depot/perl/ext/Time/HiRes/HiRes.xs#9 (text) ====
Index: perl/ext/Time/HiRes/HiRes.xs
--- perl/ext/Time/HiRes/HiRes.xs.~1~ Thu Jul 19 00:30:05 2001
+++ perl/ext/Time/HiRes/HiRes.xs Thu Jul 19 00:30:05 2001
@@ -276,11 +276,12 @@
int useconds
void
-sleep(fseconds)
- NV fseconds
+sleep(...)
CODE:
- int useconds = fseconds * 1000000;
- usleep (useconds);
+ if (items > 0)
+ usleep((int)(SvNV(ST(0)) * 1000000));
+ else
+ PerlProc_pause();
#endif
End of Patch.
