From 1bb5765928147f9b6871bb541e8d2f4f3143bc8d Mon Sep 17 00:00:00 2001
From: Marc Lehmann <pcg@goof.com>
Date: Sun, 2 Dec 2001 03:44:53 +0100
Subject: [PATCH] [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
---
 ext/Time/HiRes/HiRes.xs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
 }
-- 
2.7.4