Change 12617 by jhi@alpha on 2001/10/24 12:10:37
Don't try to print ints as IVs.
Affected files ...
... //depot/perl/ext/Time/HiRes/HiRes.xs#20 edit
Differences ...
==== //depot/perl/ext/Time/HiRes/HiRes.xs#20 (text) ====
Index: perl/ext/Time/HiRes/HiRes.xs
--- perl/ext/Time/HiRes/HiRes.xs.~1~ Wed Oct 24 06:15:05 2001
+++ perl/ext/Time/HiRes/HiRes.xs Wed Oct 24 06:15:05 2001
@@ -429,13 +429,13 @@
#ifdef HAS_UALARM
-IV
+int
ualarm(useconds,interval=0)
int useconds
int interval
CODE:
if (useconds < 0 || interval < 0)
- croak("Time::HiRes::ualarm(%"IVdf", %"IVdf"): negative time not invented
yet", useconds, interval);
+ croak("Time::HiRes::ualarm(%d, %d): negative time not invented yet",
+useconds, interval);
RETVAL = ualarm(useconds, interval);
OUTPUT:
End of Patch.
