diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2014-10-12 03:42:38 -0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-10-13 14:09:49 -0700 |
| commit | f4eedc6b8c8773817aee4a0424179660710446bf (patch) | |
| tree | 330036932efc193786b44f63de122ffb62f5a1f8 /write_buildcustomize.pl | |
| parent | 56873d4238039e462718436d7c6b45e4689209de (diff) | |
| download | perl-f4eedc6b8c8773817aee4a0424179660710446bf.tar.gz | |
speed up building with less disk IO pod moves+__END__+misc
In Cwd.pm, dont search for pwd on Win32.
Also trim down the list of makefile suffixes on Win32 so it doesn't try
searching for av.pas and perl.f90 and hash.cbl on disk.
Add __END__ tokens to stop the last read() call on the handle which
returns 0 bytes at EOF.
Diffstat (limited to 'write_buildcustomize.pl')
| -rw-r--r-- | write_buildcustomize.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/write_buildcustomize.pl b/write_buildcustomize.pl index ccef6ea08b..57a547c562 100644 --- a/write_buildcustomize.pl +++ b/write_buildcustomize.pl @@ -80,6 +80,7 @@ print $fh <<"EOT" or $error = "Can't print to $file: $!"; ${\($^O eq 'MSWin32' ? '${^WIN32_SLOPPY_STAT} = 1;':'')} splice(\@INC, 0, 1, $inc); \$^O = '$osname'; +__END__ EOT if ($error) { |