[Bps-public-commit] r15767 - in Test-Chimps-Client/trunk: lib/Test/Chimps

alexmv at bestpractical.com alexmv at bestpractical.com
Thu Sep 4 14:38:50 EDT 2008


Author: alexmv
Date: Thu Sep  4 14:38:49 2008
New Revision: 15767

Modified:
   Test-Chimps-Client/trunk/   (props changed)
   Test-Chimps-Client/trunk/lib/Test/Chimps/Smoker.pm

Log:
 r36891 at kohr-ah (orig r15766):  alexmv | 2008-09-04 14:38:38 -0400
  * De-dup entries in libs
  * We (temporarily) need to augment PERL5LIB while we run configure_cmd


Modified: Test-Chimps-Client/trunk/lib/Test/Chimps/Smoker.pm
==============================================================================
--- Test-Chimps-Client/trunk/lib/Test/Chimps/Smoker.pm	(original)
+++ Test-Chimps-Client/trunk/lib/Test/Chimps/Smoker.pm	Thu Sep  4 14:38:49 2008
@@ -330,17 +330,20 @@
     }
   }
 
+  my @libs = qw{blib/lib};
+  push @libs, @{$project->{libs}} if $project->{libs};
+  @libs = map {File::Spec->catdir($tmpdir, $project->{root_dir}, $_)} @libs;
+
+  my %seen;
+  @libs = grep {not $seen{$_}++} @libs, @otherlibs;
+
   chdir($projectdir);
 
+  local $ENV{PERL5LIB} = join(":", at libs,$ENV{PERL5LIB});
   system($project->{configure_cmd})
       if defined $project->{configure_cmd};
 
-  my @libs = qw{blib/lib};
-  push @libs, @{$project->{libs}} if $project->{libs};
-
-  @libs = map {File::Spec->catdir($tmpdir, $project->{root_dir}, $_)} @libs;
-
-  return @libs, @otherlibs;
+  return @libs;
 }
 
 sub _list_dbs {



More information about the Bps-public-commit mailing list