diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-06-12 03:26:34 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-13 00:41:28 +0000 |
| commit | 92731555bc557e609a4a3d41cae3427488548829 (patch) | |
| tree | a7bf2206a8ec056fc1fc2176b2f9fe8c91b5772e /ext | |
| parent | abb8a42605a952d46e953073c03ee52b99655727 (diff) | |
| download | perl-92731555bc557e609a4a3d41cae3427488548829.tar.gz | |
[patch] rid local_patches warnings
Message-ID: <Pine.LNX.4.21.0106121024470.24181-100000@mako.covalent.net>
p4raw-id: //depot/perl@10548
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/List/Util/Util.xs | 12 | ||||
| -rw-r--r-- | ext/Storable/Storable.xs | 2 |
2 files changed, 10 insertions, 4 deletions
diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs index 024f8755b4..f75944dceb 100644 --- a/ext/List/Util/Util.xs +++ b/ext/List/Util/Util.xs @@ -6,9 +6,15 @@ #include <EXTERN.h> #include <perl.h> #include <XSUB.h> -#include <patchlevel.h> -#if PATCHLEVEL < 5 +#ifndef PERL_VERSION +# include "patchlevel.h" +# define PERL_REVISION 5 +# define PERL_VERSION PATCHLEVEL +# define PERL_SUBVERSION SUBVERSION +#endif + +#if PERL_VERSION < 5 # ifndef gv_stashpvn # define gv_stashpvn(n,l,c) gv_stashpv(n,c) # endif @@ -36,7 +42,7 @@ sv_tainted(SV *sv) # define PL_sv_undef sv_undef # define PERL_CONTEXT struct context #endif -#if (PATCHLEVEL < 5) || (PATCHLEVEL == 5 && SUBVERSION <50) +#if (PERL_VERSION < 5) || (PERL_VERSION == 5 && PERL_SUBVERSION <50) # ifndef PL_tainting # define PL_tainting tainting # endif diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index 4e2db1963b..6663998940 100644 --- a/ext/Storable/Storable.xs +++ b/ext/Storable/Storable.xs @@ -47,7 +47,6 @@ #include <EXTERN.h> #include <perl.h> -#include <patchlevel.h> /* Perl's one, needed since 5.6 */ #include <XSUB.h> #if 0 @@ -75,6 +74,7 @@ */ #ifndef PERL_VERSION /* For perls < 5.6 */ +#include <patchlevel.h> #define PERL_VERSION PATCHLEVEL #ifndef newRV_noinc #define newRV_noinc(sv) ((Sv = newRV(sv)), --SvREFCNT(SvRV(Sv)), Sv) |