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 (file)
--- 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!";