diff options
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff')
| -rw-r--r-- | meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff new file mode 100644 index 0000000000..ad0b0cfb86 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff @@ -0,0 +1,61 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni <ntyni@debian.org> +Subject: Point users to Debian packages of deprecated core modules +Bug-Debian: http://bugs.debian.org/580034 + +Class::ISA, Switch, Pod::Plainer, and (partially) Shell were +deprecated from the Perl core in 5.12.0. + +To get a clean transition, perl-modules is going to recommend the separate +Debian packages of these for one release cycle so that they will be +pulled in by default on upgrades. + +However, on systems configured to ignore recommendations the deprecation +warnings will still be useful, so modify them slightly to point to the +separate packages instead. + +--- + lib/deprecate.pm | 18 +++++++++++++++++- + 1 files changed, 17 insertions(+), 1 deletions(-) + +diff --git a/lib/deprecate.pm b/lib/deprecate.pm +index 7b92e0b..9db7330 100644 +--- a/lib/deprecate.pm ++++ b/lib/deprecate.pm +@@ -7,6 +7,16 @@ our $VERSION = 0.01; + our %Config; + unless (%Config) { require Config; *Config = \%Config::Config; } + ++# Debian-specific change: recommend the separate Debian packages of ++# deprecated modules where available ++ ++my %DEBIAN_PACKAGES = ( ++ "Class::ISA" => "libclass-isa-perl", ++ "Pod::Plainer" => "libpod-plainer-perl", ++ "Switch" => "libswitch-perl", ++ "Shell" => "libshell-perl", ++); ++ + sub import { + my ($package, $file, $line) = caller; + my $expect_leaf = "$package.pm"; +@@ -44,9 +54,15 @@ EOM + if (defined $callers_bitmask + && (vec($callers_bitmask, $warnings::Offsets{deprecated}, 1) + || vec($callers_bitmask, $warnings::Offsets{all}, 1))) { +- warn <<"EOM"; ++ if (my $deb = $DEBIAN_PACKAGES{$package}) { ++ warn <<"EOM"; ++$package will be removed from the Perl core distribution in the next major release. Please install the separate $deb package. It is being used at $call_file, line $call_line. ++EOM ++ } else { ++ warn <<"EOM"; + $package will be removed from the Perl core distribution in the next major release. Please install it from CPAN. It is being used at $call_file, line $call_line. + EOM ++ } + } + return; + } +-- +tg: (a508b62..) debian/deprecate-with-apt (depends on: upstream) |