diff options
| author | Leon Timmermans <fawaka@gmail.com> | 2022-07-27 23:47:05 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2023-02-22 09:56:27 +0100 |
| commit | 3b6c1c937e8a68fba0239b18e2f5f8b91b9c3294 (patch) | |
| tree | 5219d4374ddc03eb82c12787d78f9d1b6388d612 /dist/PathTools | |
| parent | d6959f5c125a4785f0831f4c927cdf44069beb31 (diff) | |
| download | perl-3b6c1c937e8a68fba0239b18e2f5f8b91b9c3294.tar.gz | |
Use ppport.h when building dist/ modules in core
By always including `ppport.h`, this simplifies both XS code and tooling around it.
Diffstat (limited to 'dist/PathTools')
| -rw-r--r-- | dist/PathTools/Cwd.pm | 2 | ||||
| -rw-r--r-- | dist/PathTools/Cwd.xs | 12 | ||||
| -rw-r--r-- | dist/PathTools/Makefile.PL | 5 |
3 files changed, 7 insertions, 12 deletions
diff --git a/dist/PathTools/Cwd.pm b/dist/PathTools/Cwd.pm index 5e4b674150..dbf08a6059 100644 --- a/dist/PathTools/Cwd.pm +++ b/dist/PathTools/Cwd.pm @@ -3,7 +3,7 @@ use strict; use Exporter; -our $VERSION = '3.88'; +our $VERSION = '3.89'; my $xs_version = $VERSION; $VERSION =~ tr/_//d; diff --git a/dist/PathTools/Cwd.xs b/dist/PathTools/Cwd.xs index f32e69fcf1..ca8639d899 100644 --- a/dist/PathTools/Cwd.xs +++ b/dist/PathTools/Cwd.xs @@ -7,13 +7,11 @@ #include "EXTERN.h" #include "perl.h" #include "XSUB.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 +#define NEED_croak_xs_usage +#define NEED_sv_2pv_flags +#define NEED_my_strlcpy +#define NEED_my_strlcat +#include "ppport.h" #if defined(HAS_READLINK) && !defined(PerlLIO_readlink) #define PerlLIO_readlink readlink diff --git a/dist/PathTools/Makefile.PL b/dist/PathTools/Makefile.PL index 03117081d1..754acbed79 100644 --- a/dist/PathTools/Makefile.PL +++ b/dist/PathTools/Makefile.PL @@ -29,10 +29,7 @@ WriteMakefile 'VERSION_FROM' => 'Cwd.pm', 'ABSTRACT' => 'Tools for working with directory and file names', 'AUTHOR' => 'Perl 5 Porters', - 'DEFINE' => join(" ", - "-DDOUBLE_SLASHES_SPECIAL=@{[$^O eq q(qnx) || $^O eq q(nto) ? 1 : 0]}", - ((grep { $_ eq 'PERL_CORE=1' } @ARGV) ? '-DNO_PPPORT_H' : ()), - ), + 'DEFINE' => "-DDOUBLE_SLASHES_SPECIAL=@{[$^O eq q(qnx) || $^O eq q(nto) ? 1 : 0]}", 'PREREQ_PM' => { 'Carp' => '0', 'File::Basename' => '0', |