remove distros from needing ppport.h in core
authorDaniel Dragan <bulk88@hotmail.com>
Thu, 26 Jul 2018 12:12:56 +0000 (13:12 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Thu, 26 Jul 2018 12:13:23 +0000 (13:13 +0100)
These changes are towards a goal of removing mkppport one day as part of
a optimization for parallel building (less deps needed before XS
extensions are built). This is a follow-on patch to the dummy ppport.h
trick in Perl #128438 ticket that had issues.

-for Time::HiRes the DEFINE() in Makefile.PL can't be be in sub init()
 because that sub isn't called on windows
-SLU has not needed ppport.h in core since commit 5e99e069f5
 aka 1.47 import from cpan
-Cwd used to be a no ppport.h since 3.25, in 3.30_02 the code (Cwd.xs) was
 deleted/broken under commit 9bc94e3dae, or changes file
 "Remove more special logic required for core perl.". Put back the Cwd.xs
 code and remove Cwd from the ppport.h list

dist/PathTools/Cwd.pm
dist/PathTools/Cwd.xs
dist/Time-HiRes/HiRes.xs
dist/Time-HiRes/Makefile.PL
mkppport.lst

index 58af935..16d5b11 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use Exporter;
 
 
-our $VERSION = '3.74';
+our $VERSION = '3.75';
 my $xs_version = $VERSION;
 $VERSION =~ tr/_//d;
 
index 2ca8acd..8662400 100644 (file)
@@ -7,11 +7,13 @@
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
-#define NEED_croak_xs_usage
-#define NEED_sv_2pv_flags
-#define NEED_my_strlcpy
-#define NEED_my_strlcat
-#include "ppport.h"
+#ifndef NO_PPPORT_H
+#  define NEED_croak_xs_usage
+#  define NEED_sv_2pv_flags
+#  define NEED_my_strlcpy
+#  define NEED_my_strlcat
+#  include "ppport.h"
+#endif
 
 #ifdef I_UNISTD
 #   include <unistd.h>
index b9eaa17..c4a7af7 100644 (file)
@@ -18,7 +18,9 @@ extern "C" {
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
-#include "ppport.h"
+#ifdef USE_PPPORT_H
+#  include "ppport.h"
+#endif
 #if defined(__CYGWIN__) && defined(HAS_W32API_WINDOWS_H)
 # include <w32api/windows.h>
 # define CYGWIN_WITH_W32API
index daca5b4..4e7018a 100644 (file)
@@ -899,6 +899,7 @@ sub doMakefile {
        );
        DEFINE('ATLEASTFIVEOHOHFIVE');
     }
+    DEFINE('USE_PPPORT_H') unless $ENV{PERL_CORE};
 
     push (@makefileopts,
        'NAME'  => 'Time::HiRes',
index b3992c8..8af0f9b 100644 (file)
@@ -7,9 +7,6 @@
 
 cpan/DB_File
 cpan/IPC-SysV
-cpan/Scalar-List-Utils
 cpan/Win32API-File
 dist/IO
-dist/PathTools
-dist/Time-HiRes
 dist/Storable