diff options
| author | André Fabian Silva Delgado <emulatorman@parabola.nu> | 2016-01-03 19:03:27 -0300 |
|---|---|---|
| committer | André Fabian Silva Delgado <emulatorman@parabola.nu> | 2016-01-03 19:26:52 -0300 |
| commit | 0f80fe264ceee6d2a422cef1d8fad11346c9d771 (patch) | |
| tree | cfe6ad5575656c242f49ff9b534d7bacf6c8d75f /pcr/perl-encode-jis2k/fix_enc2xs_path.patch | |
| parent | 42f82a66398243d315735fc44645752c5747ca89 (diff) | |
| download | abslibre-0f80fe264ceee6d2a422cef1d8fad11346c9d771.tar.gz abslibre-0f80fe264ceee6d2a422cef1d8fad11346c9d771.tar.bz2 abslibre-0f80fe264ceee6d2a422cef1d8fad11346c9d771.zip | |
perl-encode-jis2k-0.03-1: updating version
Diffstat (limited to 'pcr/perl-encode-jis2k/fix_enc2xs_path.patch')
| -rw-r--r-- | pcr/perl-encode-jis2k/fix_enc2xs_path.patch | 35 |
1 files changed, 35 insertions, 0 deletions
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 |