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