diff options
| author | Paul Green <Paul.Green@stratus.com> | 2002-03-28 19:05:00 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-03-29 07:32:22 +0000 |
| commit | 4880edd6031a95381946ccf1b47bbb13704bb574 (patch) | |
| tree | 90a4aa947204c504412d7c31facf6255cdfd1b9e /ext/Time | |
| parent | 020f0e03c64f319bb529fa80a5fe18adf2ad1fa6 (diff) | |
| download | perl-4880edd6031a95381946ccf1b47bbb13704bb574.tar.gz | |
optimize ext/Time/HiRes/HiRes.xs
Message-Id: <200203290506.AAA20433@mailhub1.stratus.com>
p4raw-id: //depot/perl@15593
Diffstat (limited to 'ext/Time')
| -rw-r--r-- | ext/Time/HiRes/HiRes.xs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/Time/HiRes/HiRes.xs b/ext/Time/HiRes/HiRes.xs index 4f85f3b3f2..529223160e 100644 --- a/ext/Time/HiRes/HiRes.xs +++ b/ext/Time/HiRes/HiRes.xs @@ -618,8 +618,9 @@ sleep(...) if (items > 0) { NV seconds = SvNV(ST(0)); if (seconds >= 0.0) { - UV useconds = 1E6 * (seconds - (UV)seconds); - sleep((UV)seconds); + UV useconds = 1E6 * (seconds - (UV)seconds); + if (seconds >= 1.0) + sleep((UV)seconds); usleep(useconds); } else croak("Time::HiRes::sleep(%"NVgf"): negative time not invented yet", seconds); |