diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-01 11:26:48 +0100 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2006-12-01 09:41:47 +0000 |
| commit | b9ab5773ab03c0291526c156de00ac54d29be095 (patch) | |
| tree | d5f01f30cead217cb799b04bb26254aed6c6aa87 /ext | |
| parent | 1825a77ced10b37b12ef95486da9e62f3f6bd0ea (diff) | |
| download | perl-b9ab5773ab03c0291526c156de00ac54d29be095.tar.gz | |
Fix Time-HiRes linker error on Win32 introduced by upgrades
from version 1.94 (#29423 and #29426)
Subject: Re: Time::HiRes not happy?
From: "Rafael Garcia-Suarez" <rgarciasuarez@gmail.com>
Message-ID: <b77c1dce0612010126o799d5b8bs4ef37d22d5c7e50@mail.gmail.com>
p4raw-id: //depot/perl@29428
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Time/HiRes/HiRes.pm | 2 | ||||
| -rw-r--r-- | ext/Time/HiRes/HiRes.xs | 9 |
2 files changed, 9 insertions, 2 deletions
diff --git a/ext/Time/HiRes/HiRes.pm b/ext/Time/HiRes/HiRes.pm index 132d023417..2c014b2d63 100644 --- a/ext/Time/HiRes/HiRes.pm +++ b/ext/Time/HiRes/HiRes.pm @@ -23,7 +23,7 @@ require DynaLoader; stat ); -$VERSION = '1.96'; +$VERSION = '1.96_01'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/ext/Time/HiRes/HiRes.xs b/ext/Time/HiRes/HiRes.xs index 30719253f7..5d38fc50ee 100644 --- a/ext/Time/HiRes/HiRes.xs +++ b/ext/Time/HiRes/HiRes.xs @@ -73,6 +73,13 @@ extern "C" { # endif #endif +/* PL_ppaddr is not available in Perl 5.005_04 */ +#if (PERL_VERSION < 5) || (PERL_VERSION == 5 && PERL_SUBVERSION <50) +# ifndef PL_ppaddr +# define PL_ppaddr ppaddr +# endif +#endif + #if defined(TIME_HIRES_CLOCK_GETTIME) && defined(_STRUCT_ITIMERSPEC) /* HP-UX has CLOCK_XXX values but as enums, not as defines. @@ -1219,7 +1226,7 @@ PROTOTYPE: ;$ PUTBACK; ENTER; PL_laststatval = -1; - pp_stat(); + (void)*(PL_ppaddr[OP_STAT])(aTHX); SPAGAIN; LEAVE; if (PL_laststatval == 0) { |