diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-08-22 22:18:56 +0000 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-08-22 22:18:56 +0000 |
| commit | fac63a074885d5e7f388bf418a2d99765cb6c5e3 (patch) | |
| tree | b6834679380d4048c133e5fbc4d2e6df0df08241 /ext/Storable | |
| parent | 4ed0e2d49dad0e74ad5827a8f6a88b6fca190b58 (diff) | |
| download | perl-fac63a074885d5e7f388bf418a2d99765cb6c5e3.tar.gz | |
Fix some backwards-compatibility problems with Storable.
p4raw-id: //depot/perl@23233
Diffstat (limited to 'ext/Storable')
| -rw-r--r-- | ext/Storable/Storable.xs | 7 | ||||
| -rw-r--r-- | 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; |