Author: kwilliams
Date: Fri Dec 15 20:59:20 2006
New Revision: 8395
Modified:
Module-Build/trunk/Changes
Module-Build/trunk/lib/Module/Build/Base.pm
Log:
Simplify a config() call and bump the PERL5LIB length threshold to 500 in
system calls
Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes (original)
+++ Module-Build/trunk/Changes Fri Dec 15 20:59:20 2006
@@ -5,8 +5,10 @@
- On some systems (haven't identified the actual problem yet)
$ENV{PERL5LIB} can grow to enormous enough sizes that we can't
launch any more subprocesses because the environment table is full.
- Now we detect such situations and trim the directory list to only
- include directories that actually exist, listed only once each.
+ This is the now-infamous "Couldn't run Build.PL: Argument list too
+ long" error. Now we detect such situations and trim the directory
+ list to only include directories that actually exist, listed only
+ once each. Not the ideal solution, but it should work.
- Silence a warning in M::B::ModuleInfo that happens when the author
is using the "$VERSION = eval $VERSION" idiom.
Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Fri Dec 15 20:59:20 2006
@@ -3993,9 +3993,9 @@
# Some systems proliferate huge PERL5LIBs, try to ameliorate:
my %seen;
- my $sep = ref($self) ? $self->config('path_sep') : $Config{path_sep};
+ my $sep = $self->config('path_sep');
local $ENV{PERL5LIB} =
- ( length($ENV{PERL5LIB}) < 200
+ ( length($ENV{PERL5LIB}) < 500
? $ENV{PERL5LIB}
: join $sep, grep { ! $seen{$_}++ and -d $_ } split($sep, $ENV{PERL5LIB})
);
