From: Audrey Tang <cpan@audreyt.org>
Date: Mon, 20 May 2002 04:10:31 +0000 (+0800)
Subject: Make Makefile_PL.e2x happy on MSWin32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=52adf7dc63f8dcc2a6048039e370c3ddca899e4c;p=p5sagit%2Fp5-mst-13.2.git

Make Makefile_PL.e2x happy on MSWin32
Message-ID: <20020519201031.GA1603@not.autrijus.org>

p4raw-id: //depot/perl@16700
---

diff --git a/ext/Encode/Encode/Makefile_PL.e2x b/ext/Encode/Encode/Makefile_PL.e2x
index 0e73823..a82e774 100644
--- a/ext/Encode/Encode/Makefile_PL.e2x
+++ b/ext/Encode/Encode/Makefile_PL.e2x
@@ -22,7 +22,7 @@ for my $d (@Config{qw/bin sitebin vendorbin/},
 	   (split /$Config{path_sep}/o, $ENV{PATH})){
     for my $f (qw/enc2xs enc2xs5.7.3/){
         my $path = File::Spec->catfile($d, $f);
-        -x $path and $enc2xs = $path and last PATHLOOP;
+        -r $path and $enc2xs = $path and last PATHLOOP;
     }
 }
 $enc2xs or die "enc2xs not found!";