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;
|
