Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2600/lib/Module/Build
Modified Files:
Tag: release-0_26_branch
Base.pm
Log Message:
Use a -d test instead of a uniqueness test for @INC
Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.340.2.11
retrieving revision 1.340.2.12
diff -u -d -r1.340.2.11 -r1.340.2.12
--- Base.pm 9 Jan 2005 19:28:17 -0000 1.340.2.11
+++ Base.pm 10 Jan 2005 01:03:23 -0000 1.340.2.12
@@ -1341,11 +1341,10 @@
File::Spec->catdir($p->{base_dir}, $self->blib, 'arch'),
@INC);
- # Filter out duplicate @INC entries - some versions of Test::Harness
- # will really explode the number of entries here
- my %seen;
- @INC = grep {not $seen{$_}++} @INC;
-
+ # Filter out duplicate and non-existent @INC entries - some versions
+ # of Test::Harness will really explode the number of entries here
+ @INC = grep {ref() || -d} @INC if @INC > 100;
+
my $tests = $self->find_test_files;
if (@$tests) {
|
