summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Encode/Makefile_PL.e2x
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Encode/Makefile_PL.e2x')
-rw-r--r--Master/tlpkg/tlperl/lib/Encode/Makefile_PL.e2x7
1 files changed, 6 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/Encode/Makefile_PL.e2x b/Master/tlpkg/tlperl/lib/Encode/Makefile_PL.e2x
index 1d83a2fbda2..ece58830fea 100644
--- a/Master/tlpkg/tlperl/lib/Encode/Makefile_PL.e2x
+++ b/Master/tlpkg/tlperl/lib/Encode/Makefile_PL.e2x
@@ -17,12 +17,17 @@ my %tables = (
#### DO NOT EDIT BEYOND THIS POINT!
require File::Spec;
my ($enc2xs, $encode_h) = ();
+my @path_ext = ('');
+@path_ext = split(';', $ENV{PATHEXT}) if $^O eq 'MSWin32';
PATHLOOP:
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);
- -r $path and $enc2xs = $path and last PATHLOOP;
+ for my $ext (@path_ext) {
+ my $bin = "$path$ext";
+ -r "$bin" and $enc2xs = $bin and last PATHLOOP;
+ }
}
}
$enc2xs or die "enc2xs not found!";