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

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

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

Modified Files:
      Tag: release-0_26_branch
	Base.pm 
Log Message:
Filter @INC down to its unique entries

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.340.2.10
retrieving revision 1.340.2.11
diff -u -d -r1.340.2.10 -r1.340.2.11
--- Base.pm	5 Jan 2005 04:37:32 -0000	1.340.2.10
+++ Base.pm	9 Jan 2005 19:28:17 -0000	1.340.2.11
@@ -1340,6 +1340,11 @@
   local @INC = (File::Spec->catdir($p->{base_dir}, $self->blib, 'lib'),
 		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;
   
   my $tests = $self->find_test_files;