r22706 - /trunk/libdevel-cover-perl/debian/patches/keep-non-existent-dirs-in-INC.patch

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Jul  2 22:41:35 2008
New Revision: 22706

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=22706
Log:
Fix the directory test, pebkac

Modified:
    trunk/libdevel-cover-perl/debian/patches/keep-non-existent-dirs-in-INC.patch

Modified: trunk/libdevel-cover-perl/debian/patches/keep-non-existent-dirs-in-INC.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-cover-perl/debian/patches/keep-non-existent-dirs-in-INC.patch?rev=22706&op=diff
==============================================================================
--- trunk/libdevel-cover-perl/debian/patches/keep-non-existent-dirs-in-INC.patch (original)
+++ trunk/libdevel-cover-perl/debian/patches/keep-non-existent-dirs-in-INC.patch Wed Jul  2 22:41:35 2008
@@ -9,7 +9,7 @@
  my $base     = getcwd;
  
 -my %inc      = map { -d $_ ? (($_ eq "." ? $_ : Cwd::abs_path($_)) => 1) : () }
-+my %inc      = map { (($_ eq "." or -d $_) ? $_ : Cwd::abs_path($_)) => 1 }
++my %inc      = map { (($_ eq "." or ! -d $_) ? $_ : Cwd::abs_path($_)) => 1 }
                     @INC;
  my @inc      = sort keys %inc;
  
@@ -18,7 +18,7 @@
  EOM
      eval "use Cwd";
 -    my \%inc = map { -d \$_ ? ((\$_ eq "." ? \$_ : Cwd::abs_path(\$_)) => 1) : () }
-+    my \%inc = map { ((\$_ eq "." or -d \$_) ? \$_ : Cwd::abs_path(\$_)) => 1 }
++    my \%inc = map { ((\$_ eq "." or ! -d \$_) ? \$_ : Cwd::abs_path(\$_)) => 1 }
                     \@INC;
      \@Inc = sort keys \%inc;
  }