[Bps-public-commit] r9979 - in TAP-Harness-Remote: .

[jesse at bestpractical.com]

Author: jesse
Date: Mon Dec 17 14:58:47 2007
New Revision: 9979

Modified:
   TAP-Harness-Remote/   (props changed)
   TAP-Harness-Remote/lib/TAP/Harness/Remote.pm

Log:
 r73719 at pinglin:  jesse | 2007-12-17 08:59:55 -0800
 
 r73720 at pinglin:  jesse | 2007-12-17 09:00:12 -0800
 * Quiet down a warning if the user doesnt' define a PERL5LIB


Modified: TAP-Harness-Remote/lib/TAP/Harness/Remote.pm
==============================================================================
--- TAP-Harness-Remote/lib/TAP/Harness/Remote.pm	(original)
+++ TAP-Harness-Remote/lib/TAP/Harness/Remote.pm	Mon Dec 17 14:58:47 2007
@@ -266,6 +266,8 @@
     my $local = $self->remote_config("local");
     my $remote = $self->remote_config("root");
 
+    $ENV{PERL5LIB} ||='';
+
     $ENV{PERL5LIB} =~ s/^(lib:){1,}/lib:/;
     my @other = grep {not /^-I/} @{$args->{switches}};
     my @inc = map {s/^-I$local/-I$remote/; $_} grep {/^-I/} @{$args->{switches}};