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/List/Util/Util.xs | |
| 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/List/Util/Util.xs')
| -rw-r--r-- | ext/List/Util/Util.xs | 12 |
1 files changed, 9 insertions, 3 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 |