Change 13422 by jhi@alpha on 2001/12/02 00:56:05
Subject: [ID 20011201.170] Time::HiRes in devel-perl causes segfaults for xs
users
From: Marc Lehmann <[EMAIL PROTECTED]>
Date: Sun, 02 Dec 2001 02:44:53 +0100
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/ext/Time/HiRes/HiRes.xs#23 edit
Differences ...
==== //depot/perl/ext/Time/HiRes/HiRes.xs#23 (text) ====
Index: perl/ext/Time/HiRes/HiRes.xs
--- perl/ext/Time/HiRes/HiRes.xs.~1~ Sat Dec 1 18:00:05 2001
+++ perl/ext/Time/HiRes/HiRes.xs Sat Dec 1 18:00:05 2001
@@ -560,7 +560,7 @@
#ifdef HAS_GETTIMEOFDAY
{
UV auv[2];
- hv_store(PL_modglobal, "Time::NVtime", 12, newSViv((IV) myNVtime()), 0);
+ hv_store(PL_modglobal, "Time::NVtime", 12, newSViv(PTR2INT(myNVtime)), 0);
if (myU2time(auv) == 0)
hv_store(PL_modglobal, "Time::U2time", 12, newSViv((IV) auv[0]), 0);
}
End of Patch.
