[Jifty-commit] r1787 - in jifty/trunk: t/lib/Jifty
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Thu Aug 10 00:37:06 EDT 2006
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/..";
}
More information about the Jifty-commit
mailing list