diff options
| author | Marc Lehmann <pcg@goof.com> | 2001-12-02 03:44:53 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-02 00:56:05 +0000 |
| commit | 1bb5765928147f9b6871bb541e8d2f4f3143bc8d (patch) | |
| tree | 6bf383387a381b9b668e80e5c359102f2b5d0c6e /ext/Time | |
| parent | 681a7c689c2fc832adac45eb5c99f0321de883c2 (diff) | |
| download | perl-1bb5765928147f9b6871bb541e8d2f4f3143bc8d.tar.gz | |
[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
Diffstat (limited to 'ext/Time')
| -rw-r--r-- | ext/Time/HiRes/HiRes.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Time/HiRes/HiRes.xs b/ext/Time/HiRes/HiRes.xs index e1e13e143a..781444ab6c 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); } |