diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2014-03-01 06:20:16 -0500 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2014-04-08 13:03:47 +0100 |
| commit | 8ce7a7e8b08f04e70601dd7b8717af879a4ea397 (patch) | |
| tree | 82b95b847b6c8b9ddafe2deb5a7e4c2ab2b1d2be | |
| parent | 4a70680af1019e8cdeaf52bb506d9fbda1dd4f05 (diff) | |
| download | perl-8ce7a7e8b08f04e70601dd7b8717af879a4ea397.tar.gz | |
speed up miniperl require on Win32
These 3 optimizations reduce the number of, usually failing, I/O calls
for each "require" for miniperl only. None are appropriate except for
Win32. See #121119 for details.
| -rw-r--r-- | win32/win32.h | 3 | ||||
| -rw-r--r-- | write_buildcustomize.pl | 6 |
2 files changed, 8 insertions, 1 deletions
diff --git a/win32/win32.h b/win32/win32.h index e109939070..8db0303965 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -13,6 +13,7 @@ # define _WIN32_WINNT 0x0500 /* needed for CreateHardlink() etc. */ #endif +/* Win32 only optimizations for faster building */ #ifdef PERL_IS_MINIPERL /* this macro will remove Winsock only on miniperl, PERL_IMPLICIT_SYS and * makedef.pl create dependencies that will keep Winsock linked in even with @@ -20,6 +21,8 @@ * level in full perl */ # define WIN32_NO_SOCKETS +/* less I/O calls during each require */ +# define PERL_DISABLE_PMC #endif #ifdef WIN32_NO_SOCKETS diff --git a/write_buildcustomize.pl b/write_buildcustomize.pl index 64bf4ce6cb..cf429a906c 100644 --- a/write_buildcustomize.pl +++ b/write_buildcustomize.pl @@ -54,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: $!"; @@ -74,6 +77,7 @@ print $fh <<"EOT" or $error = "Can't print to $file: $!"; # We are miniperl, building extensions # 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 |