[Rt-commit] r5512 - in Test-Chimps: trunk trunk/lib/Test/Chimps/Client

[zev at bestpractical.com]

Author: zev
Date: Mon Jul  3 18:25:16 2006
New Revision: 5512

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

Log:
 r9804 at galvatron:  zev | 2006-07-03 18:11:50 -0400
 add @INC to PERL5LIB before we run the configure command


Modified: Test-Chimps/trunk/MANIFEST
==============================================================================
--- Test-Chimps/trunk/MANIFEST	(original)
+++ Test-Chimps/trunk/MANIFEST	Mon Jul  3 18:25:16 2006
@@ -16,19 +16,27 @@
 inc/Module/Install/WriteAll.pm
 lib/Test/Chimps.pm
 lib/Test/Chimps/Client.pm
+lib/Test/Chimps/Client/Poller.pm
+lib/Test/Chimps/Client/Poller.pm.orig
 lib/Test/Chimps/Report.pm
 lib/Test/Chimps/Server.pm
+lib/Test/Chimps/Server/Lister.pm
 Makefile.PL
 MANIFEST
 META.yml			# Will be created by "make dist"
+patch
 README
 t
 t/00-dependencies.t
 t/01-report-basic.t
 t/05-client-basic.t
 t/10-server-base.t
+t/10-server-basic.t
+t/15-poller-basic.t
+t/20-lister-basic.t
 t/bogus-tests
 t/bogus-tests/00-basic.t
 t/boilerplate.t
 t/pod-coverage.t
 t/pod.t
+TODO

Modified: Test-Chimps/trunk/lib/Test/Chimps/Client/Poller.pm
==============================================================================
--- Test-Chimps/trunk/lib/Test/Chimps/Client/Poller.pm	(original)
+++ Test-Chimps/trunk/lib/Test/Chimps/Client/Poller.pm	Mon Jul  3 18:25:16 2006
@@ -235,10 +235,14 @@
   
   chdir($projectdir);
 
+  my $old_perl5lib = $ENV{PERL5LIB};
+  $ENV{PERL5LIB} = join($Config{path_sep}, $self->_filtered_INC) .
+    ':' . $ENV{PERL5LIB};
   if (defined $project->{configure_cmd}) {
     system($project->{configure_cmd});
   }
-
+  $ENV{PERL5LIB} = $old_perl5lib;
+  
   for my $libloc (qw{blib/lib}) {
     my $libdir = File::Spec->catdir($tmpdir,
                                     $project->{root_dir},