mirror of
https://github.com/openwrt/packages.git
synced 2025-12-22 08:14:32 +04:00
lang/perl: Upgraded to Perl 5.24.1
Signed-off-by: Michail Frolov <frolovm@pobox.com>
This commit is contained in:
42
lang/perl/patches/320-copy-pod-hack.patch
Normal file
42
lang/perl/patches/320-copy-pod-hack.patch
Normal file
@@ -0,0 +1,42 @@
|
||||
--- a/cpan/podlators/Makefile.PL
|
||||
+++ b/cpan/podlators/Makefile.PL
|
||||
@@ -18,6 +18,19 @@ use Config;
|
||||
use ExtUtils::MakeMaker;
|
||||
use File::Spec;
|
||||
|
||||
+foreach (glob('scripts/pod*.PL')) {
|
||||
+ # The various pod*.PL extractors change directory. Doing that with relative
|
||||
+ # paths in @INC breaks. It seems the lesser of two evils to copy (to avoid)
|
||||
+ # the chdir doing anything, than to attempt to convert lib paths to
|
||||
+ # absolute, and potentially run into problems with quoting special
|
||||
+ # characters in the path to our build dir (such as spaces)
|
||||
+ require File::Copy;
|
||||
+
|
||||
+ my $temp = $_;
|
||||
+ $temp =~ s!scripts/!!;
|
||||
+ File::Copy::copy($_, $temp) or die "Can't copy $temp to $_: $!";
|
||||
+}
|
||||
+
|
||||
# Generate full paths for scripts distributed in the bin directory. Appends
|
||||
# the .com extension to scripts on VMS, unless they already have the .PL
|
||||
# extension.
|
||||
@@ -28,7 +41,7 @@ use File::Spec;
|
||||
# (Scalar) Space-separated relative paths from top of distribution
|
||||
sub scripts {
|
||||
my (@scripts) = @_;
|
||||
- my @paths = map { File::Spec->catfile('scripts', $_) } @scripts;
|
||||
+ my @paths = @scripts;
|
||||
if ($^O eq 'VMS') {
|
||||
@paths = map { m{ [.] PL \z }xms ? $_ : $_ . '.com' } @paths;
|
||||
}
|
||||
@@ -77,8 +90,8 @@ my %metadata = (
|
||||
|
||||
# Override the files that generate section 1 man pages.
|
||||
MAN1PODS => {
|
||||
- man1pod('scripts', 'pod2man.PL'),
|
||||
- man1pod('scripts', 'pod2text.PL'),
|
||||
+ man1pod('.', 'pod2man.PL'),
|
||||
+ man1pod('.', 'pod2text.PL'),
|
||||
|
||||
# Perl core uses a separate copy in the top-level pod directory.
|
||||
($ENV{PERL_CORE} ? () : man1pod('pod', 'perlpodstyle.pod')),
|
||||
Reference in New Issue
Block a user