60 lines
2.1 KiB
Diff
60 lines
2.1 KiB
Diff
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: (c823880..) debian/deprecate-with-apt (depends on: upstream)
|