From fac63a074885d5e7f388bf418a2d99765cb6c5e3 Mon Sep 17 00:00:00 2001
From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Sun, 22 Aug 2004 22:18:56 +0000
Subject: Fix some backwards-compatibility problems with Storable.

p4raw-id: //depot/perl@23233
---
 ext/Storable/Storable.xs | 7 ++-----
 ext/Storable/t/weak.t    | 2 +-
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 3c65c4ae60..81bfb90d6f 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 59e8e2b2c8..a8b708b1b3 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;
-- 
cgit v1.2.1