[Jifty-commit] r1787 - in jifty/trunk: t/lib/Jifty

[jifty-commit at lists.jifty.org]

Author: glasser
Date: Thu Aug 10 00:37:05 2006
New Revision: 1787

Modified:
   jifty/trunk/lib/Jifty/TestServer.pm
   jifty/trunk/t/lib/Jifty/SubTest.pm

Log:
abs_path returns undef if path doesn't exist. If you have nonexistent paths
in your @INC, this was turning them into undef, yielding billions of warnings
in the most randomest placest in the world.

Modified: jifty/trunk/lib/Jifty/TestServer.pm
==============================================================================
--- jifty/trunk/lib/Jifty/TestServer.pm	(original)
+++ jifty/trunk/lib/Jifty/TestServer.pm	Thu Aug 10 00:37:05 2006
@@ -6,7 +6,7 @@
 use Test::Builder;
 my $Tester = Test::Builder->new;
 
-my $INC = [map { abs_path($_) } @INC ];
+my $INC = [grep { defined } map { abs_path($_) } @INC ];
 my @perl = ($^X, map { "-I$_" } @$INC);
 
 =head1 NAME

Modified: jifty/trunk/t/lib/Jifty/SubTest.pm
==============================================================================
--- jifty/trunk/t/lib/Jifty/SubTest.pm	(original)
+++ jifty/trunk/t/lib/Jifty/SubTest.pm	Thu Aug 10 00:37:05 2006
@@ -3,7 +3,7 @@
 use FindBin;
 use Cwd;
 BEGIN {
-    @INC = map { ref($_) ? $_ : Cwd::abs_path($_) } @INC;
+    @INC = grep { defined } map { ref($_) ? $_ : Cwd::abs_path($_) } @INC;
     chdir "$FindBin::Bin/..";
 }