Change 29428 by [EMAIL PROTECTED] on 2006/12/01 09:41:47
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" <[EMAIL PROTECTED]>
Date: Fri, 1 Dec 2006 10:26:48 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Time/HiRes/HiRes.pm#69 edit
... //depot/perl/ext/Time/HiRes/HiRes.xs#64 edit
Differences ...
==== //depot/perl/ext/Time/HiRes/HiRes.pm#69 (text) ====
Index: perl/ext/Time/HiRes/HiRes.pm
--- perl/ext/Time/HiRes/HiRes.pm#68~29426~ 2006-11-30 06:11:57.000000000
-0800
+++ perl/ext/Time/HiRes/HiRes.pm 2006-12-01 01:41:47.000000000 -0800
@@ -23,7 +23,7 @@
stat
);
-$VERSION = '1.96';
+$VERSION = '1.96_01';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
==== //depot/perl/ext/Time/HiRes/HiRes.xs#64 (text) ====
Index: perl/ext/Time/HiRes/HiRes.xs
--- perl/ext/Time/HiRes/HiRes.xs#63~29426~ 2006-11-30 06:11:57.000000000
-0800
+++ perl/ext/Time/HiRes/HiRes.xs 2006-12-01 01:41:47.000000000 -0800
@@ -73,6 +73,13 @@
# 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 @@
PUTBACK;
ENTER;
PL_laststatval = -1;
- pp_stat();
+ (void)*(PL_ppaddr[OP_STAT])(aTHX);
SPAGAIN;
LEAVE;
if (PL_laststatval == 0) {
End of Patch.
