From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 24 Oct 2001 12:10:37 +0000 (+0000)
Subject: Don't try to print ints as IVs.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3de7a4ec7f37be853bf2c12b0f42e46cb3efb4ff;p=p5sagit%2Fp5-mst-13.2.git

Don't try to print ints as IVs.

p4raw-id: //depot/perl@12617
---

diff --git a/ext/Time/HiRes/HiRes.xs b/ext/Time/HiRes/HiRes.xs
index dcc51e9..08fe5cc 100644
--- a/ext/Time/HiRes/HiRes.xs
+++ b/ext/Time/HiRes/HiRes.xs
@@ -429,13 +429,13 @@ sleep(...)
 
 #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: