[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.340.2.11,1.340.2.12

[Ken W. <kwi...@us...>]

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) {