[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.375,1.376

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

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11067

Modified Files:
	Base.pm 
Log Message:
Integrate from branch


Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.375
retrieving revision 1.376
diff -u -d -r1.375 -r1.376
--- Base.pm	10 Jan 2005 04:27:32 -0000	1.375
+++ Base.pm	10 Jan 2005 04:28:14 -0000	1.376
@@ -1429,6 +1429,10 @@
   local @INC = (File::Spec->catdir($p->{base_dir}, $self->blib, 'lib'),
 		File::Spec->catdir($p->{base_dir}, $self->blib, 'arch'),
 		@INC);
+
+  # Filter out nonsensical @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;