blob: b5f5aedde731d69b1cd6beca50c207853f0b6803 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
diff -Nut Encode-JIS2K-0.03.orig/Makefile.PL Encode-JIS2K-0.03/Makefile.PL
--- Encode-JIS2K-0.03.orig/Makefile.PL 2015-06-05 00:58:02.000000000 -0300
+++ Encode-JIS2K-0.03/Makefile.PL 2016-01-03 18:58:25.861672309 -0300
@@ -17,21 +17,14 @@
);
-# from perlvar
-use Config; # first appeared in 5.00307
-my $secure_perl_path = $Config{perlpath};
-if ($^O ne 'VMS') {
- my $secure_perl_path .= $Config{_exe}
- unless $secure_perl_path =~ m/$Config{_exe}$/i;
-}
-die "can't determine path to the perl I'm running under"
- unless ($secure_perl_path);
-use File::Basename qw(dirname);
-my $dpath = dirname $secure_perl_path;
my ($enc2xs, $encode_h) = ();
-my $enc2xs_fpath = File::Spec->catfile($dpath, 'enc2xs');
-$enc2xs = $enc2xs_fpath
- if (-x $enc2xs_fpath);
+PATHLOOP:
+for my $d (split /:/, $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;
+ }
+}
$enc2xs or die "enc2xs not found!";
print "enc2xs is $enc2xs\n";
my %encode_h = ();
Common subdirectories: Encode-JIS2K-0.03.orig/lib and Encode-JIS2K-0.03/lib
Common subdirectories: Encode-JIS2K-0.03.orig/t and Encode-JIS2K-0.03/t
Common subdirectories: Encode-JIS2K-0.03.orig/ucm and Encode-JIS2K-0.03/ucm
|
