[Bps-public-commit] r18268 - Test-Chimps-Client/trunk/lib/Test/Chimps

[alexmv at bestpractical.com]

Author: alexmv
Date: Fri Feb  6 12:30:46 2009
New Revision: 18268

Modified:
   Test-Chimps-Client/trunk/lib/Test/Chimps/Smoker.pm

Log:
 * Warnings avoidance for empty PERL5LIB

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	Fri Feb  6 12:30:46 2009
@@ -70,6 +70,7 @@
 
 # add a signal handler so destructor gets run
 $SIG{INT} = sub {print "caught sigint.  cleaning up...\n"; exit(1)};
+$ENV{PERL5LIB} = "" unless defined $ENV{PERL5LIB}; # Warnings avoidance
 
 sub new {
   my $class = shift;