Cwd doesn't need ppport.h in core
authorJerry D. Hedden <jdhedden@cpan.org>
Tue, 20 Mar 2007 13:16:46 +0000 (06:16 -0700)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 23 Mar 2007 11:59:55 +0000 (11:59 +0000)
From: "Jerry D. Hedden" <jdhedden@yahoo.com>
Message-ID: <196803.14702.qm@web30215.mail.mud.yahoo.com>

p4raw-id: //depot/perl@30718

ext/Cwd/Cwd.xs
ext/Cwd/Makefile.PL
lib/Cwd.pm
mkppport.lst

index 039adb9..99d372c 100644 (file)
@@ -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>
index 29b8de5..02e5a3b 100644 (file)
@@ -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')
+    ),
 );
index cfc0294..7eb0cf5 100644 (file)
@@ -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);
index 8c090d4..0e37e5e 100644 (file)
@@ -5,6 +5,5 @@
 # This file is read by mkppport at build time.
 #
 
-ext/Cwd
 ext/Time/HiRes
 ext/Win32API/File