From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Sun, 22 Aug 2004 22:18:56 +0000 (+0000)
Subject: Fix some backwards-compatibility problems with Storable.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fac63a074885d5e7f388bf418a2d99765cb6c5e3;p=p5sagit%2Fp5-mst-13.2.git

Fix some backwards-compatibility problems with Storable.

p4raw-id: //depot/perl@23233
---

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 3c65c4a..81bfb90 100644
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -14,13 +14,10 @@
 #include <XSUB.h>
 
 #ifndef PATCHLEVEL
-#    include <patchlevel.h>		/* Perl's one, needed since 5.6 */
-#    if !(defined(PERL_VERSION) || (SUBVERSION > 0 && defined(PATCHLEVEL)))
-#        include <could_not_find_Perl_patchlevel.h>
-#    endif
+#include <patchlevel.h>		/* Perl's one, needed since 5.6 */
 #endif
 
-#if PERL_VERSION < 8
+#if !defined(PERL_VERSION) || PERL_VERSION < 8
 #include "ppport.h"             /* handle old perls */
 #endif
 
diff --git a/ext/Storable/t/weak.t b/ext/Storable/t/weak.t
index 59e8e2b..a8b708b 100644
--- a/ext/Storable/t/weak.t
+++ b/ext/Storable/t/weak.t
@@ -25,7 +25,7 @@ sub BEGIN {
   }
 
   require Scalar::Util;
-  Scalar::Util->import qw(weaken isweak);
+  Scalar::Util->import(qw(weaken isweak));
   if (grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) {
     print("1..0 # Skip: No support for weaken in Scalar::Util\n");
     exit 0;