use strict;
use warnings;
use Config;
-BEGIN {
- if ($^O eq 'MSWin32') {
- unshift @INC, ('../dist/Cwd', '../dist/Cwd/lib');
- require File::Spec::Functions;
- require FindExt;
- }
- else {
- unshift @INC, 'dist/Cwd';
- }
-}
-use Cwd;
my $is_Win32 = $^O eq 'MSWin32';
my $is_VMS = $^O eq 'VMS';
my $is_Unix = !$is_Win32 && !$is_VMS;
-# To clarify, this isn't the entire suite of modules considered "toolchain"
-# It's not even all modules needed to build ext/
-# It's just the source paths of the (minimum complete set of) modules in ext/
-# needed to build the nonxs modules
-# After which, all nonxs modules are in lib, which was always sufficient to
-# allow miniperl to build everything else.
-
-# This list cannot get any longer without overflowing the length limit for
-# environment variables on VMS
-my @toolchain = qw(cpan/AutoLoader/lib
- dist/Cwd dist/Cwd/lib
- cpan/ExtUtils-Command/lib
- dist/ExtUtils-Install/lib
- cpan/ExtUtils-MakeMaker/lib
- cpan/ExtUtils-Manifest/lib
- cpan/File-Path/lib
- );
-
-# Used only in ExtUtils::Liblist::Kid::_win32_ext()
-push @toolchain, 'cpan/Text-ParseWords/lib' if $is_Win32;
-
my @ext_dirs = qw(cpan dist ext);
my $ext_dirs_re = '(?:' . join('|', @ext_dirs) . ')';
# It's actually a cut and shut of the Unix version ext/utils/makeext and the
# Windows version win32/build_ext.pl hence the two invocation styles.
-# On Unix, it primarily used by the perl Makefile one extention at a time:
+# On Unix, it primarily used by the perl Makefile one extension at a time:
#
# d_dummy $(dynamic_ext): miniperl preplibrary FORCE
# @$(RUN) ./miniperl make_ext.pl --target=dynamic $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL)
# If '--static' is specified, static extensions will be built.
# If '--dynamic' is specified, dynamic extensions will be built.
# If '--nonxs' is specified, nonxs extensions will be built.
-# If '--dynaloader' is specificied, DynaLoader will be built.
+# If '--dynaloader' is specified, DynaLoader will be built.
# If '--all' is specified, all extensions will be built.
#
# make_ext.pl "MAKE=make [-make_opts]" --dir=directory [--target=target] [--static|--dynamic|--all] +ext2 !ext1
my %extra_passthrough;
if ($is_Win32) {
- (my $here = getcwd()) =~ s{/}{\\}g;
+ require Cwd;
+ require FindExt;
+ my $build = Cwd::getcwd();
$perl = $^X;
if ($perl =~ m#^\.\.#) {
+ my $here = $build;
+ $here =~ s{/}{\\}g;
$perl = "$here\\$perl";
}
(my $topdir = $perl) =~ s/\\[^\\]+$//;
system(@args) unless defined $::Cross::platform;
}
- my $build = getcwd();
print "In $build";
foreach my $dir (@dirs) {
chdir($dir) or die "Cannot cd to $dir: $!\n";
- (my $ext = getcwd()) =~ s{/}{\\}g;
+ (my $ext = Cwd::getcwd()) =~ s{/}{\\}g;
FindExt::scan_ext($ext);
FindExt::set_static_extensions(split ' ', $Config{static_ext});
chdir $build
{
# Cwd needs to be built before Encode recurses into subdirectories.
+ # Pod::Simple needs to be built before Pod::Functions
# This seems to be the simplest way to ensure this ordering:
my (@first, @other);
foreach (@extspec) {
- if ($_ eq 'Cwd') {
+ if ($_ eq 'Cwd' || $_ eq 'Pod/Simple') {
push @first, $_;
} else {
push @other, $_;
$perl ||= "$up/miniperl";
my $return_dir = $up;
my $lib_dir = "$up/lib";
- # $lib_dir must be last, as we're copying files into it, and in a parallel
- # make there's a race condition if one process tries to open a module that
- # another process has half-written.
- my @new_inc = ((map {"$up/$_"} @toolchain), $lib_dir);
- if ($is_Win32) {
- @new_inc = map {File::Spec::Functions::rel2abs($_)} @new_inc;
- }
- $ENV{PERL5LIB} = join $Config{path_sep}, @new_inc;
$ENV{PERL_CORE} = 1;
- # warn $ENV{PERL5LIB};
my $makefile;
if ($is_VMS) {
# hash.
my @temps = 'Makefile.PL';
foreach (glob('scripts/pod*.PL')) {
- # The various pod*.PL extrators change directory. Doing that with relative
+ # The various pod*.PL extractors change directory. Doing that with relative
# paths in @INC breaks. It seems the lesser of two evils to copy (to avoid)
# the chdir doing anything, than to attempt to convert lib paths to
# absolute, and potentially run into problems with quoting special
# ex: set ro:
EOM
close $fh or die "Can't close Makefile.PL: $!";
+ # As described in commit 23525070d6c0e51f:
+ # Push the atime and mtime of generated Makefile.PLs back 4
+ # seconds. In certain circumstances ( on virtual machines ) the
+ # generated Makefile.PL can produce a Makefile that is older than
+ # the Makefile.PL. Altering the atime and mtime backwards by 4
+ # seconds seems to resolve the issue.
+ eval {
+ my $ftime = time - 4;
+ utime $ftime, $ftime, 'Makefile.PL';
+ };
}
print "\nRunning Makefile.PL in $ext_dir\n";
# Inherited from make_ext.pl
@cross = '-MCross';
}
-
- my @args = (@cross, 'Makefile.PL');
+
+ my @args = ("-I$lib_dir", @cross, 'Makefile.PL');
if ($is_VMS) {
my $libd = VMS::Filespec::vmspath($lib_dir);
push @args, "INST_LIB=$libd", "INST_ARCHLIB=$libd";
}
if ($is_VMS) {
- _macroify_passthrough($pass_through);
- unshift @$pass_through, "/DESCRIPTION=$makefile";
+ _quote_args($pass_through);
+ @$pass_through = (
+ "/DESCRIPTION=$makefile",
+ '/MACRO=(' . join(',',@$pass_through) . ')'
+ );
}
if (!$target or $target !~ /clean$/) {
# Give makefile an opportunity to rewrite itself.
# reassure users that life goes on...
my @args = ('config', @$pass_through);
- _quote_args(\@args) if $is_VMS;
system(@run, @make, @args) and print "@run @make @args failed, continuing anyway...\n";
}
my @targ = ($target, @$pass_through);
- _quote_args(\@targ) if $is_VMS;
print "Making $target in $ext_dir\n@run @make @targ\n";
my $code = system(@run, @make, @targ);
die "Unsuccessful make($ext_dir): code=$code" if $code != 0;
} @{$args}
;
}
-
-sub _macroify_passthrough {
- my $passthrough = shift;
- _quote_args($passthrough);
- my $macro = '/MACRO=(' . join(',',@$passthrough) . ')';
- @$passthrough = ();
- @$passthrough[0] = $macro;
-}