summaryrefslogtreecommitdiffstats
path: root/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes
diff options
context:
space:
mode:
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.12.2/debian/fixes')
-rw-r--r--meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/autodie-flock.diff98
-rw-r--r--meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/concat-stack-corruption.diff37
-rw-r--r--meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/cpanplus-without-home.diff30
-rw-r--r--meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/h2ph-gcc-4.5.diff106
-rw-r--r--meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/hurd-ccflags.diff26
-rw-r--r--meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-docs.diff95
-rw-r--r--meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-sprintf.diff29
-rw-r--r--meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/net_smtp_docs.diff23
-rw-r--r--meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/processPL.diff43
9 files changed, 487 insertions, 0 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/autodie-flock.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/autodie-flock.diff
new file mode 100644
index 0000000000..f8908ac872
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/autodie-flock.diff
@@ -0,0 +1,98 @@
1From: Niko Tyni <ntyni@debian.org>
2Subject: Allow for flock returning EAGAIN instead of EWOULDBLOCK on linux/parisc
3Bug-Debian: http://bugs.debian.org/543731
4Origin: upstream, http://github.com/pfenwick/autodie/commit/037738e11a6097734b0e1dabdd77b92e5fe35219
5
6
7---
8 cpan/autodie/lib/Fatal.pm | 14 +++++++++++++-
9 cpan/autodie/t/flock.t | 12 ++++++++++--
10 2 files changed, 23 insertions(+), 3 deletions(-)
11
12diff --git a/cpan/autodie/lib/Fatal.pm b/cpan/autodie/lib/Fatal.pm
13old mode 100644
14new mode 100755
15index 18e71ed..c17a257
16--- a/cpan/autodie/lib/Fatal.pm
17+++ b/cpan/autodie/lib/Fatal.pm
18@@ -5,6 +5,7 @@ use Carp;
19 use strict;
20 use warnings;
21 use Tie::RefHash; # To cache subroutine refs
22+use Config;
23
24 use constant PERL510 => ( $] >= 5.010 );
25
26@@ -52,6 +53,10 @@ our %_EWOULDBLOCK = (
27 MSWin32 => 33,
28 );
29
30+# the linux parisc port has separate EAGAIN and EWOULDBLOCK,
31+# and the kernel returns EAGAIN
32+my $try_EAGAIN = ($^O eq 'linux' and $Config{archname} =~ /hppa|parisc/) ? 1 : 0;
33+
34 # We have some tags that can be passed in for use with import.
35 # These are all assumed to be CORE::
36
37@@ -720,6 +725,11 @@ sub _one_invocation {
38 my $EWOULDBLOCK = eval { POSIX::EWOULDBLOCK(); }
39 || $_EWOULDBLOCK{$^O}
40 || _autocroak("Internal error - can't overload flock - EWOULDBLOCK not defined on this system.");
41+ my $EAGAIN = $EWOULDBLOCK;
42+ if ($try_EAGAIN) {
43+ $EAGAIN = eval { POSIX::EAGAIN(); }
44+ || _autocroak("Internal error - can't overload flock - EAGAIN not defined on this system.");
45+ }
46
47 require Fcntl; # For Fcntl::LOCK_NB
48
49@@ -735,7 +745,9 @@ sub _one_invocation {
50 # If we failed, but we're using LOCK_NB and
51 # returned EWOULDBLOCK, it's not a real error.
52
53- if (\$_[1] & Fcntl::LOCK_NB() and \$! == $EWOULDBLOCK ) {
54+ if (\$_[1] & Fcntl::LOCK_NB() and
55+ (\$! == $EWOULDBLOCK or
56+ ($try_EAGAIN and \$! == $EAGAIN ))) {
57 return \$retval;
58 }
59
60diff --git a/cpan/autodie/t/flock.t b/cpan/autodie/t/flock.t
61index a7550ba..6421a56 100755
62--- a/cpan/autodie/t/flock.t
63+++ b/cpan/autodie/t/flock.t
64@@ -2,7 +2,8 @@
65 use strict;
66 use Test::More;
67 use Fcntl qw(:flock);
68-use POSIX qw(EWOULDBLOCK);
69+use POSIX qw(EWOULDBLOCK EAGAIN);
70+use Config;
71
72 require Fatal;
73
74@@ -10,6 +11,9 @@ my $EWOULDBLOCK = eval { EWOULDBLOCK() }
75 || $Fatal::_EWOULDBLOCK{$^O}
76 || plan skip_all => "EWOULDBLOCK not defined on this system";
77
78+my $try_EAGAIN = ($^O eq 'linux' and $Config{archname} =~ /hppa|parisc/) ? 1 : 0;
79+my $EAGAIN = eval { EAGAIN() };
80+
81 my ($self_fh, $self_fh2);
82
83 eval {
84@@ -55,7 +59,11 @@ eval {
85 $return = flock($self_fh2, LOCK_EX | LOCK_NB);
86 };
87
88-is($!+0, $EWOULDBLOCK, "Double-flocking should be EWOULDBLOCK");
89+if (!$try_EAGAIN) {
90+ is($!+0, $EWOULDBLOCK, "Double-flocking should be EWOULDBLOCK");
91+} else {
92+ ok($!+0 == $EWOULDBLOCK || $!+0 == $EAGAIN, "Double-flocking should be EWOULDBLOCK or EAGAIN");
93+}
94 ok(!$return, "flocking a file twice should fail");
95 is($@, "", "Non-blocking flock should not fail on EWOULDBLOCK");
96
97--
98tg: (c823880..) fixes/autodie-flock (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/concat-stack-corruption.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/concat-stack-corruption.diff
new file mode 100644
index 0000000000..6feb8401fe
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/concat-stack-corruption.diff
@@ -0,0 +1,37 @@
1From: Niko Tyni <ntyni@debian.org>
2Subject: Fix stack pointer corruption in pp_concat() with 'use encoding'
3Bug-Debian: http://bugs.debian.org/596105
4Bug: http://rt.perl.org/rt3/Ticket/Display.html?id=78674
5Origin: upstream, http://perl5.git.perl.org/perl.git/commit/e3393f51d48d8b790e26324eb0336fac9689fa46
6
7If the stack is reallocated during pp_concat() and 'use encoding' in
8effect, the stack pointer gets corrupted, causing memory allocation bugs
9and the like.
10
11---
12 pp_hot.c | 3 +++
13 1 files changed, 3 insertions(+), 0 deletions(-)
14
15diff --git a/pp_hot.c b/pp_hot.c
16index 3371e88..e9cccf3 100644
17--- a/pp_hot.c
18+++ b/pp_hot.c
19@@ -271,6 +271,8 @@ PP(pp_concat)
20 rbyte = !DO_UTF8(right);
21 }
22 if (lbyte != rbyte) {
23+ /* sv_utf8_upgrade_nomg() may reallocate the stack */
24+ PUTBACK;
25 if (lbyte)
26 sv_utf8_upgrade_nomg(TARG);
27 else {
28@@ -279,6 +281,7 @@ PP(pp_concat)
29 sv_utf8_upgrade_nomg(right);
30 rpv = SvPV_const(right, rlen);
31 }
32+ SPAGAIN;
33 }
34 sv_catpvn_nomg(TARG, rpv, rlen);
35
36--
37tg: (c823880..) fixes/concat-stack-corruption (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/cpanplus-without-home.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/cpanplus-without-home.diff
new file mode 100644
index 0000000000..5f85894a97
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/cpanplus-without-home.diff
@@ -0,0 +1,30 @@
1From: Niko Tyni <ntyni@debian.org>
2Subject: Fix CPANPLUS test failures when HOME doesn't exist
3Bug: http://rt.cpan.org/Public/Bug/Display.html?id=52988
4Bug-Debian: http://bugs.debian.org/577011
5Origin: upstream
6
7The Debian autobuilders are configured with a non-existing $ENV{HOME},
8triggering a bug in CPANPLUS that causes test failures.
9
10Fix from CPANPLUS-0.9001.
11
12---
13 cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm | 2 +-
14 1 files changed, 1 insertions(+), 1 deletions(-)
15
16diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm
17index 27d2abc..8475c36 100644
18--- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm
19+++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm
20@@ -5,7 +5,7 @@ use strict;
21 use CPANPLUS::Error;
22 use CPANPLUS::Internals::Constants;
23
24-use Cwd qw[chdir];
25+use Cwd qw[chdir cwd];
26 use File::Copy;
27 use Params::Check qw[check];
28 use Module::Load::Conditional qw[can_load];
29--
30tg: (c823880..) fixes/cpanplus-without-home (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/h2ph-gcc-4.5.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/h2ph-gcc-4.5.diff
new file mode 100644
index 0000000000..c2baf2fa76
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/h2ph-gcc-4.5.diff
@@ -0,0 +1,106 @@
1Author: Robin Barker <rmbarker@cpan.org>
2Subject: h2ph fix for gcc 4.5
3Bug-Debian: http://bugs.debian.org/599933
4Origin: upstream, http://perl5.git.perl.org/perl.git/commit/8d66b3f930dc6d88b524d103e304308ae73a46e7
5
6Fix h2ph and test. Needed to build with GCC 4.5.
7
8
9---
10 lib/h2ph.t | 12 ++++++++++--
11 utils/h2ph.PL | 28 +++++++++++++++++++++++-----
12 2 files changed, 33 insertions(+), 7 deletions(-)
13
14diff --git a/lib/h2ph.t b/lib/h2ph.t
15index 27dd7b9..8d62d46 100755
16--- a/lib/h2ph.t
17+++ b/lib/h2ph.t
18@@ -18,7 +18,7 @@ if (!(-e $extracted_program)) {
19 exit 0;
20 }
21
22-plan(4);
23+plan(5);
24
25 # quickly compare two text files
26 sub txt_compare {
27@@ -41,8 +41,16 @@ $result = runperl( progfile => 'lib/h2ph.pht',
28 stderr => 1 );
29 like( $result, qr/syntax OK$/, "output compiles");
30
31+$result = runperl( progfile => '_h2ph_pre.ph',
32+ switches => ['-c'],
33+ stderr => 1 );
34+like( $result, qr/syntax OK$/, "preamble compiles");
35+
36 $result = runperl( switches => ["-w"],
37- prog => '$SIG{__WARN__} = sub { die $_[0] }; require q(lib/h2ph.pht);');
38+ stderr => 1,
39+ prog => <<'PROG' );
40+$SIG{__WARN__} = sub { die $_[0] }; require q(lib/h2ph.pht);
41+PROG
42 is( $result, '', "output free of warnings" );
43
44 # cleanup
45diff --git a/utils/h2ph.PL b/utils/h2ph.PL
46index 8f56db4..1255807 100644
47--- a/utils/h2ph.PL
48+++ b/utils/h2ph.PL
49@@ -401,7 +401,10 @@ if ($opt_e && (scalar(keys %bad_file) > 0)) {
50 exit $Exit;
51
52 sub expr {
53- $new = '"(assembly code)"' and return if /\b__asm__\b/; # freak out.
54+ if (/\b__asm__\b/) { # freak out
55+ $new = '"(assembly code)"';
56+ return
57+ }
58 my $joined_args;
59 if(keys(%curargs)) {
60 $joined_args = join('|', keys(%curargs));
61@@ -770,7 +773,7 @@ sub inc_dirs
62 sub build_preamble_if_necessary
63 {
64 # Increment $VERSION every time this function is modified:
65- my $VERSION = 2;
66+ my $VERSION = 3;
67 my $preamble = "$Dest_dir/_h2ph_pre.ph";
68
69 # Can we skip building the preamble file?
70@@ -798,7 +801,16 @@ sub build_preamble_if_necessary
71 # parenthesized value: d=(v)
72 $define{$_} = $1;
73 }
74- if ($define{$_} =~ /^([+-]?(\d+)?\.\d+([eE][+-]?\d+)?)[FL]?$/) {
75+ if (/^(\w+)\((\w)\)$/) {
76+ my($macro, $arg) = ($1, $2);
77+ my $def = $define{$_};
78+ $def =~ s/$arg/\$\{$arg\}/g;
79+ print PREAMBLE <<DEFINE;
80+unless (defined &$macro) { sub $macro(\$) { my (\$$arg) = \@_; \"$def\" } }
81+
82+DEFINE
83+ } elsif
84+ ($define{$_} =~ /^([+-]?(\d+)?\.\d+([eE][+-]?\d+)?)[FL]?$/) {
85 # float:
86 print PREAMBLE
87 "unless (defined &$_) { sub $_() { $1 } }\n\n";
88@@ -807,8 +819,14 @@ sub build_preamble_if_necessary
89 print PREAMBLE
90 "unless (defined &$_) { sub $_() { $1 } }\n\n";
91 } elsif ($define{$_} =~ /^\w+$/) {
92- print PREAMBLE
93- "unless (defined &$_) { sub $_() { &$define{$_} } }\n\n";
94+ my $def = $define{$_};
95+ if ($isatype{$def}) {
96+ print PREAMBLE
97+ "unless (defined &$_) { sub $_() { \"$def\" } }\n\n";
98+ } else {
99+ print PREAMBLE
100+ "unless (defined &$_) { sub $_() { &$def } }\n\n";
101+ }
102 } else {
103 print PREAMBLE
104 "unless (defined &$_) { sub $_() { \"",
105--
106tg: (c823880..) fixes/h2ph-gcc-4.5 (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/hurd-ccflags.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/hurd-ccflags.diff
new file mode 100644
index 0000000000..b9ea6770f2
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/hurd-ccflags.diff
@@ -0,0 +1,26 @@
1Author: Samuel Thibault <sthibault@debian.org>
2Subject: Make hints/gnu.sh append to $ccflags rather than overriding them
3Bug-Debian: http://bugs.debian.org/587901
4
5Don't override possible extra $ccflags values given to Configure
6on GNU/Hurd.
7
8---
9 hints/gnu.sh | 2 +-
10 1 files changed, 1 insertions(+), 1 deletions(-)
11
12diff --git a/hints/gnu.sh b/hints/gnu.sh
13index 2cfce54..c1ba2db 100644
14--- a/hints/gnu.sh
15+++ b/hints/gnu.sh
16@@ -19,7 +19,7 @@ lddlflags='-shared'
17 ccdlflags='-Wl,-E'
18
19 # Debian bug #258618
20-ccflags='-D_GNU_SOURCE'
21+ccflags="-D_GNU_SOURCE $ccflags"
22
23 # The following routines are only available as stubs in GNU libc.
24 # XXX remove this once metaconf detects the GNU libc stubs.
25--
26tg: (c823880..) fixes/hurd-ccflags (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-docs.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-docs.diff
new file mode 100644
index 0000000000..bb5c0e8c10
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-docs.diff
@@ -0,0 +1,95 @@
1From: Niko Tyni <ntyni@debian.org>
2Subject: LC_NUMERIC documentation fixes
3Bug-Debian: http://bugs.debian.org/379329
4Bug: http://rt.perl.org/rt3/Ticket/Display.html?id=78452
5Origin: upstream, http://perl5.git.perl.org/perl.git/commit/903eb63f7d8d47a38971a8e9af7201b9927882cf
6
7LC_NUMERIC documentation updates fixing two errors:
8
9 - the early parts of perllocale.pod still say printf() uses LC_NUMERIC
10 with just 'use locale' when actually a POSIX::setlocale() call is
11 also needed
12
13 - format() hasn't used LC_NUMERIC unconditionally since 5.005_03
14 (commit 097ee67dff1c60f201bc09435bc6eaeeafcd8123).
15
16Test cases from the upstream commit dropped for the sake of simplicity.
17
18---
19 pod/perlform.pod | 20 ++++++++------------
20 pod/perllocale.pod | 15 ++++++---------
21 2 files changed, 14 insertions(+), 21 deletions(-)
22
23diff --git a/pod/perlform.pod b/pod/perlform.pod
24index 3cfa1b7..df0f0a1 100644
25--- a/pod/perlform.pod
26+++ b/pod/perlform.pod
27@@ -166,9 +166,9 @@ token on the first line. If an expression evaluates to a number with a
28 decimal part, and if the corresponding picture specifies that the decimal
29 part should appear in the output (that is, any picture except multiple "#"
30 characters B<without> an embedded "."), the character used for the decimal
31-point is B<always> determined by the current LC_NUMERIC locale. This
32-means that, if, for example, the run-time environment happens to specify a
33-German locale, "," will be used instead of the default ".". See
34+point is determined by the current LC_NUMERIC locale if C<use locale> is in
35+effect. This means that, if, for example, the run-time environment happens
36+to specify a German locale, "," will be used instead of the default ".". See
37 L<perllocale> and L<"WARNINGS"> for more information.
38
39
40@@ -442,15 +442,11 @@ Lexical variables (declared with "my") are not visible within a
41 format unless the format is declared within the scope of the lexical
42 variable. (They weren't visible at all before version 5.001.)
43
44-Formats are the only part of Perl that unconditionally use information
45-from a program's locale; if a program's environment specifies an
46-LC_NUMERIC locale, it is always used to specify the decimal point
47-character in formatted output. Perl ignores all other aspects of locale
48-handling unless the C<use locale> pragma is in effect. Formatted output
49-cannot be controlled by C<use locale> because the pragma is tied to the
50-block structure of the program, and, for historical reasons, formats
51-exist outside that block structure. See L<perllocale> for further
52-discussion of locale handling.
53+If a program's environment specifies an LC_NUMERIC locale and C<use
54+locale> is in effect when the format is declared, the locale is used
55+to specify the decimal point character in formatted output. Formatted
56+output cannot be controlled by C<use locale> at the time when write()
57+is called. See L<perllocale> for further discussion of locale handling.
58
59 Within strings that are to be displayed in a fixed length text field,
60 each control character is substituted by a space. (But remember the
61diff --git a/pod/perllocale.pod b/pod/perllocale.pod
62index 0dbabe7..0bec423 100644
63--- a/pod/perllocale.pod
64+++ b/pod/perllocale.pod
65@@ -115,8 +115,7 @@ ucfirst(), and lcfirst()) use C<LC_CTYPE>
66
67 =item *
68
69-B<The formatting functions> (printf(), sprintf() and write()) use
70-C<LC_NUMERIC>
71+B<Format declarations> (format()) use C<LC_NUMERIC>
72
73 =item *
74
75@@ -967,13 +966,11 @@ system's implementation of the locale system than by Perl.
76
77 =head2 write() and LC_NUMERIC
78
79-Formats are the only part of Perl that unconditionally use information
80-from a program's locale; if a program's environment specifies an
81-LC_NUMERIC locale, it is always used to specify the decimal point
82-character in formatted output. Formatted output cannot be controlled by
83-C<use locale> because the pragma is tied to the block structure of the
84-program, and, for historical reasons, formats exist outside that block
85-structure.
86+If a program's environment specifies an LC_NUMERIC locale and C<use
87+locale> is in effect when the format is declared, the locale is used
88+to specify the decimal point character in formatted output. Formatted
89+output cannot be controlled by C<use locale> at the time when write()
90+is called.
91
92 =head2 Freely available locale definitions
93
94--
95tg: (c823880..) fixes/lc-numeric-docs (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-sprintf.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-sprintf.diff
new file mode 100644
index 0000000000..6a39820012
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-sprintf.diff
@@ -0,0 +1,29 @@
1From: Niko Tyni <ntyni@debian.org>
2Subject: Fix sprintf not to ignore LC_NUMERIC with constants
3Bug-Debian: http://bugs.debian.org/601549
4Bug: http://rt.perl.org/rt3/Ticket/Display.html?id=78632
5Origin: upstream, http://perl5.git.perl.org/perl.git/commit/b3fd61496ebc585b1115807e3195f17714662a09
6
7Don't fold constants in sprintf() if locales are used
8
9An upstream regression in 5.10.1 made sprintf() ignore LC_NUMERIC for
10numeric constants.
11
12---
13 op.c | 1 +
14 1 files changed, 1 insertions(+), 0 deletions(-)
15
16diff --git a/op.c b/op.c
17index e94f158..3c6badb 100644
18--- a/op.c
19+++ b/op.c
20@@ -2503,6 +2503,7 @@ S_fold_constants(pTHX_ register OP *o)
21 case OP_SLE:
22 case OP_SGE:
23 case OP_SCMP:
24+ case OP_SPRINTF:
25 /* XXX what about the numeric ops? */
26 if (PL_hints & HINT_LOCALE)
27 goto nope;
28--
29tg: (c823880..) fixes/lc-numeric-sprintf (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/net_smtp_docs.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/net_smtp_docs.diff
new file mode 100644
index 0000000000..6dc97129bb
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/net_smtp_docs.diff
@@ -0,0 +1,23 @@
1Subject: Document the Net::SMTP 'Port' option
2Bug-Debian: http://bugs.debian.org/100195
3Bug: http://rt.cpan.org/Public/Bug/Display.html?id=36038
4
5
6---
7 cpan/libnet/Net/SMTP.pm | 1 +
8 1 files changed, 1 insertions(+), 0 deletions(-)
9
10diff --git a/cpan/libnet/Net/SMTP.pm b/cpan/libnet/Net/SMTP.pm
11index a28496d..07b2498 100644
12--- a/cpan/libnet/Net/SMTP.pm
13+++ b/cpan/libnet/Net/SMTP.pm
14@@ -625,6 +625,7 @@ Net::SMTP will attempt to extract the address from the value passed.
15
16 B<Debug> - Enable debugging information
17
18+B<Port> - Select a port on the remote host to connect to (default is 25)
19
20 Example:
21
22--
23tg: (c823880..) fixes/net_smtp_docs (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/processPL.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/processPL.diff
new file mode 100644
index 0000000000..5a444e3f69
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/processPL.diff
@@ -0,0 +1,43 @@
1Subject: Always use PERLRUNINST when building perl modules.
2Bug-Debian: http://bugs.debian.org/357264
3Bug: http://rt.cpan.org/Public/Bug/Display.html?id=17224
4
5Revert part of upstream change 24524 to always use PERLRUNINST when
6building perl modules: Some PDL demos expect blib to be implicitly
7searched.
8
9
10---
11 cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 5 +----
12 1 files changed, 1 insertions(+), 4 deletions(-)
13
14diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
15index 239d6df..294d266 100644
16--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
17+++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
18@@ -3043,14 +3043,11 @@ sub processPL {
19 # pm_to_blib depends on then it can't depend on pm_to_blib
20 # else we have a dependency loop.
21 my $pm_dep;
22- my $perlrun;
23 if( defined $self->{PM}{$target} ) {
24 $pm_dep = '';
25- $perlrun = 'PERLRUN';
26 }
27 else {
28 $pm_dep = 'pm_to_blib';
29- $perlrun = 'PERLRUNINST';
30 }
31
32 $m .= <<MAKE_FRAG;
33@@ -3059,7 +3056,7 @@ all :: $target
34 \$(NOECHO) \$(NOOP)
35
36 $target :: $plfile $pm_dep
37- \$($perlrun) $plfile $target
38+ \$(PERLRUNINST) $plfile $target
39 MAKE_FRAG
40
41 }
42--
43tg: (c823880..) fixes/processPL (depends on: upstream)
generated by cgit v1.2.3-54-g00ecf (git 2.39.0) at 2024-06-11 19:04:50 +0000