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)