abslibre/pcr/perl-encode-jis2k/fix_enc2xs_path.patch

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