From 0f80fe264ceee6d2a422cef1d8fad11346c9d771 Mon Sep 17 00:00:00 2001 From: André Fabian Silva Delgado Date: Sun, 3 Jan 2016 19:03:27 -0300 Subject: perl-encode-jis2k-0.03-1: updating version --- pcr/perl-encode-jis2k/fix_enc2xs_path.patch | 35 +++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 pcr/perl-encode-jis2k/fix_enc2xs_path.patch (limited to 'pcr/perl-encode-jis2k/fix_enc2xs_path.patch') diff --git a/pcr/perl-encode-jis2k/fix_enc2xs_path.patch b/pcr/perl-encode-jis2k/fix_enc2xs_path.patch new file mode 100644 index 000000000..b5f5aedde --- /dev/null +++ b/pcr/perl-encode-jis2k/fix_enc2xs_path.patch @@ -0,0 +1,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 -- cgit v1.2.3