# See http://bugs.debian.org/476272
# See http://rt.cpan.org/Ticket/Display.html?id=37349
# The idea of the patch is to pass non-existent directories literally so
# that they can be examined when they exist on the user's system
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -32,7 +32,7 @@ my @versions = grep { $_ ne "README" && 
 
 my $base     = getcwd;
 
-my %inc      = map { -d $_ ? (($_ eq "." ? $_ : Cwd::abs_path($_)) => 1) : () }
+my %inc      = map { (($_ eq "." or ! -d $_) ? $_ : Cwd::abs_path($_)) => 1 }
                    @INC;
 my @inc      = sort keys %inc;
 
@@ -73,7 +73,7 @@ and +-select options.
 
 EOM
     eval "use Cwd";
-    my \%inc = map { -d \$_ ? ((\$_ eq "." ? \$_ : Cwd::abs_path(\$_)) => 1) : () }
+    my \%inc = map { ((\$_ eq "." or ! -d \$_) ? \$_ : Cwd::abs_path(\$_)) => 1 }
                    \@INC;
     \@Inc = sort keys \%inc;
 }