X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/cb8c84586a7e77e1b9100e6d88a6a9d18041ae96..fc6933476282438a4b45150119b9be73dfa05b82:/write_buildcustomize.pl diff --git a/write_buildcustomize.pl b/write_buildcustomize.pl index df74fc4..ccef6ea 100644 --- a/write_buildcustomize.pl +++ b/write_buildcustomize.pl @@ -1,13 +1,20 @@ #!./miniperl -w use strict; -if (@ARGV) { + +my $osname = $^O; +my $file = 'lib/buildcustomize.pl'; + +if ( @ARGV % 2 ) { my $dir = shift; chdir $dir or die "Can't chdir '$dir': $!"; unshift @INC, 'lib'; } -my $file = 'lib/buildcustomize.pl'; +if ( @ARGV ) { + # Used during cross-compilation. + $osname = $ARGV[1]; +} # To clarify, this isn't the entire suite of modules considered "toolchain" # It's not even all modules needed to build ext/ @@ -21,10 +28,10 @@ my $file = 'lib/buildcustomize.pl'; my @toolchain = qw(cpan/AutoLoader/lib dist/Carp/lib dist/PathTools dist/PathTools/lib - dist/ExtUtils-Command/lib - dist/ExtUtils-Install/lib + cpan/ExtUtils-Command/lib + cpan/ExtUtils-Install/lib cpan/ExtUtils-MakeMaker/lib - dist/ExtUtils-Manifest/lib + cpan/ExtUtils-Manifest/lib cpan/File-Path/lib ext/re dist/Term-ReadLine/lib @@ -47,7 +54,10 @@ require File::Spec::Functions; my $inc = join ",\n ", map { "q\0$_\0" } - (map {File::Spec::Functions::rel2abs($_)} @toolchain, 'lib'), '.'; + (map {File::Spec::Functions::rel2abs($_)} ( +# faster build on the non-parallel Win32 build process + $^O eq 'MSWin32' ? ('lib', @toolchain ) : (@toolchain, 'lib') + )); open my $fh, '>', $file or die "Can't open $file: $!"; @@ -60,10 +70,16 @@ my $error; print $fh <<"EOT" or $error = "Can't print to $file: $!"; #!perl +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is generated by write_buildcustomize.pl. +# Any changes made here will be lost! + # We are miniperl, building extensions -# Reset \@INC completely, adding the directories we need, and removing the -# installed directories (which we don't need to read, and may confuse us) -\@INC = ($inc); +# Replace the first entry of \@INC ("lib") with the list of +# directories we need. +${\($^O eq 'MSWin32' ? '${^WIN32_SLOPPY_STAT} = 1;':'')} +splice(\@INC, 0, 1, $inc); +\$^O = '$osname'; EOT if ($error) {