[Bps-public-commit] r15925 - Test-Chimps-Client/branches/modern-tap/lib/Test/Chimps

[alexmv at bestpractical.com]

Author: alexmv
Date: Thu Sep 11 12:47:08 2008
New Revision: 15925

Modified:
   Test-Chimps-Client/branches/modern-tap/lib/Test/Chimps/Smoker.pm

Log:
 * local PERL5LIB so it doesn't grow

Modified: Test-Chimps-Client/branches/modern-tap/lib/Test/Chimps/Smoker.pm
==============================================================================
--- Test-Chimps-Client/branches/modern-tap/lib/Test/Chimps/Smoker.pm	(original)
+++ Test-Chimps-Client/branches/modern-tap/lib/Test/Chimps/Smoker.pm	Thu Sep 11 12:47:08 2008
@@ -169,7 +169,12 @@
       jobs => ($config->{$project}{jobs} || $self->{jobs}),
       lib => \@libs,
   } );
-  $harness->runtests(glob($test_glob));
+  {
+      # Runtests apparently grows PERL5LIB -- local it so it doesn't
+      # grow without bound
+      local $ENV{PERL5LIB} = $ENV{PERL5LIB};
+      $harness->runtests(glob($test_glob));
+  }
 
   $self->_unroll_env_stack;