From: skaufman <sam@socialflow.com>
Date: Mon, 14 Apr 2014 16:08:17 +0000 (-0400)
Subject: grep out non-files from @INC.
X-Git-Tag: v0.003003~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a46f6c5479427e967cea4f4ea64b0be7decbd7c;p=scpubgit%2FObject-Remote.git

grep out non-files from @INC.
Non-files dont make sense when passed to -I
Devel::Local chucks
a | into PERL5LIB, which breaks when passed to the command line.
( perl -I| doesnt work )
---

diff --git a/lib/Object/Remote/FatNode.pm b/lib/Object/Remote/FatNode.pm
index 1b7c659..d93f54c 100644
--- a/lib/Object/Remote/FatNode.pm
+++ b/lib/Object/Remote/FatNode.pm
@@ -16,7 +16,7 @@ sub stripspace {
 
 my %maybe_libs = map +($_ => 1), grep defined, (values %Config, '.');
 
-my @extra_libs = grep not(ref($_) or $maybe_libs{$_}), @INC;
+my @extra_libs = grep -e not(ref($_) or $maybe_libs{$_}), @INC;
 
 my $extra_libs = join '', map "  -I$_\n", @extra_libs;