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

diff --git a/ext/Time/HiRes/HiRes.pm b/ext/Time/HiRes/HiRes.pm
index 132d023..2c014b2 100644 (file)
--- 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 3071925..5d38fc5 100644 (file)
--- 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) {