From: Marc Lehmann <pcg@goof.com>
Date: Sun, 2 Dec 2001 02:44:53 +0000 (+0100)
Subject: [ID 20011201.170] Time::HiRes in devel-perl causes segfaults for xs users
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1bb5765928147f9b6871bb541e8d2f4f3143bc8d;p=p5sagit%2Fp5-mst-13.2.git

[ID 20011201.170] Time::HiRes in devel-perl causes segfaults for xs users
Message-Id: <E16ALgb-0006Yw-00.pgcc-forever-2001-12-02-02-44-53@fuji.laendle>

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

diff --git a/ext/Time/HiRes/HiRes.xs b/ext/Time/HiRes/HiRes.xs
index e1e13e1..781444a 100644
--- a/ext/Time/HiRes/HiRes.xs
+++ b/ext/Time/HiRes/HiRes.xs
@@ -560,7 +560,7 @@ BOOT:
 #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);
 }