diff options
| -rw-r--r-- | ext/Cwd/Cwd.xs | 6 | ||||
| -rw-r--r-- | ext/Cwd/Makefile.PL | 5 | ||||
| -rw-r--r-- | lib/Cwd.pm | 2 | ||||
| -rw-r--r-- | mkppport.lst | 1 |
4 files changed, 10 insertions, 4 deletions
diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs index 039adb93f6..99d372cfae 100644 --- a/ext/Cwd/Cwd.xs +++ b/ext/Cwd/Cwd.xs @@ -1,8 +1,10 @@ #include "EXTERN.h" #include "perl.h" #include "XSUB.h" -#define NEED_sv_2pv_nolen -#include "ppport.h" +#ifdef USE_PPPORT_H +# define NEED_sv_2pv_nolen +# include "ppport.h" +#endif #ifdef I_UNISTD # include <unistd.h> diff --git a/ext/Cwd/Makefile.PL b/ext/Cwd/Makefile.PL index 29b8de528f..02e5a3b179 100644 --- a/ext/Cwd/Makefile.PL +++ b/ext/Cwd/Makefile.PL @@ -2,4 +2,9 @@ use ExtUtils::MakeMaker; WriteMakefile( NAME => 'Cwd', VERSION_FROM => '../../lib/Cwd.pm', + ( + (grep { $_ eq 'PERL_CORE=1' } @ARGV) + ? () + : ('DEFINE' => '-DUSE_PPPORT_H') + ), ); diff --git a/lib/Cwd.pm b/lib/Cwd.pm index cfc0294c2b..7eb0cf5ba0 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -171,7 +171,7 @@ use strict; use Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION); -$VERSION = '3.24'; +$VERSION = '3.24_01'; @ISA = qw/ Exporter /; @EXPORT = qw(cwd getcwd fastcwd fastgetcwd); diff --git a/mkppport.lst b/mkppport.lst index 8c090d467d..0e37e5e7dd 100644 --- a/mkppport.lst +++ b/mkppport.lst @@ -5,6 +5,5 @@ # This file is read by mkppport at build time. # -ext/Cwd ext/Time/HiRes ext/Win32API/File |