diff options
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.14.3/debian/deprecate-with-apt.diff')
| -rw-r--r-- | meta/recipes-devtools/perl/perl-5.14.3/debian/deprecate-with-apt.diff | 407 |
1 files changed, 0 insertions, 407 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.14.3/debian/deprecate-with-apt.diff b/meta/recipes-devtools/perl/perl-5.14.3/debian/deprecate-with-apt.diff deleted file mode 100644 index 3a145a1671..0000000000 --- a/meta/recipes-devtools/perl/perl-5.14.3/debian/deprecate-with-apt.diff +++ /dev/null @@ -1,407 +0,0 @@ -Upstream-Status:Inappropriate [debian patches] -From c2bd2059cfbba573643c748ace4ff4db4cbf015d Mon Sep 17 00:00:00 2001 -From: Dominic Hargreaves <dom@earth.li> -Date: Mon, 17 May 2010 13:23:07 +0300 -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. - -Class::ISA, Switch, Pod::Plainer were removed from the Perl core in -5.14.0. - -Shell and Devel::DProf, and Perl 4 libraries, were deprecated from the -Perl core in 5.14.0. - -To get a clean transition, perl/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. - -Patch-Name: debian/deprecate-with-apt.diff ---- - lib/abbrev.pl | 2 +- - lib/assert.pl | 2 +- - lib/bigfloat.pl | 2 +- - lib/bigint.pl | 2 +- - lib/bigrat.pl | 2 +- - lib/cacheout.pl | 2 +- - lib/complete.pl | 2 +- - lib/ctime.pl | 2 +- - lib/deprecate.pm | 16 +++++++++++++++- - lib/dotsh.pl | 2 +- - lib/exceptions.pl | 2 +- - lib/fastcwd.pl | 2 +- - lib/find.pl | 2 +- - lib/finddepth.pl | 2 +- - lib/flush.pl | 2 +- - lib/getcwd.pl | 2 +- - lib/getopt.pl | 2 +- - lib/getopts.pl | 2 +- - lib/hostname.pl | 2 +- - lib/importenv.pl | 2 +- - lib/look.pl | 2 +- - lib/newgetopt.pl | 2 +- - lib/open2.pl | 2 +- - lib/open3.pl | 2 +- - lib/pwd.pl | 2 +- - lib/shellwords.pl | 2 +- - lib/stat.pl | 2 +- - lib/syslog.pl | 2 +- - lib/tainted.pl | 2 +- - lib/termcap.pl | 2 +- - lib/timelocal.pl | 2 +- - lib/validate.pl | 2 +- - 32 files changed, 46 insertions(+), 32 deletions(-) - -diff --git a/lib/abbrev.pl b/lib/abbrev.pl -index d46321f..0168631 100644 ---- a/lib/abbrev.pl -+++ b/lib/abbrev.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - ;# Usage: - ;# %foo = (); -diff --git a/lib/assert.pl b/lib/assert.pl -index d47e006..80593c5 100644 ---- a/lib/assert.pl -+++ b/lib/assert.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # - # This library is no longer being maintained, and is included for backward -diff --git a/lib/bigfloat.pl b/lib/bigfloat.pl -index 82d0f5c..c21bac6 100644 ---- a/lib/bigfloat.pl -+++ b/lib/bigfloat.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - package bigfloat; - require "bigint.pl"; -diff --git a/lib/bigint.pl b/lib/bigint.pl -index 6de1c53..031e8ad 100644 ---- a/lib/bigint.pl -+++ b/lib/bigint.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - package bigint; - # -diff --git a/lib/bigrat.pl b/lib/bigrat.pl -index aaf1713..146a8f4 100644 ---- a/lib/bigrat.pl -+++ b/lib/bigrat.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - package bigrat; - require "bigint.pl"; -diff --git a/lib/cacheout.pl b/lib/cacheout.pl -index a5da453..937405d 100644 ---- a/lib/cacheout.pl -+++ b/lib/cacheout.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # - # This library is no longer being maintained, and is included for backward -diff --git a/lib/complete.pl b/lib/complete.pl -index 9ed041c..2ab0c6a 100644 ---- a/lib/complete.pl -+++ b/lib/complete.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - ;# - # -diff --git a/lib/ctime.pl b/lib/ctime.pl -index aa00d00..ac24e71 100644 ---- a/lib/ctime.pl -+++ b/lib/ctime.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - ;# ctime.pl is a simple Perl emulation for the well known ctime(3C) function. - # -diff --git a/lib/deprecate.pm b/lib/deprecate.pm -index 7562c69..fc548b0 100644 ---- a/lib/deprecate.pm -+++ b/lib/deprecate.pm -@@ -7,6 +7,14 @@ our $VERSION = 0.02; - 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 = ( -+ "Shell" => "libshell-perl", -+ "Devel::DProf" => "libdevel-dprof-perl" -+); -+ - # This isn't a public API. It's internal to code maintained by the perl-porters - # If you would like it to be a public API, please send a patch with - # documentation and tests. Until then, it may change without warning. -@@ -58,9 +66,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 -+ } - } - } - } -diff --git a/lib/dotsh.pl b/lib/dotsh.pl -index 92f1f4c..4085122 100644 ---- a/lib/dotsh.pl -+++ b/lib/dotsh.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # - # @(#)dotsh.pl 03/19/94 -diff --git a/lib/exceptions.pl b/lib/exceptions.pl -index 8af64c8..b5b1427 100644 ---- a/lib/exceptions.pl -+++ b/lib/exceptions.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # exceptions.pl - # tchrist@convex.com -diff --git a/lib/fastcwd.pl b/lib/fastcwd.pl -index 70007a1..2c7c42e 100644 ---- a/lib/fastcwd.pl -+++ b/lib/fastcwd.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # By John Bazik - # -diff --git a/lib/find.pl b/lib/find.pl -index 8e1b42c..7fb2fbf 100644 ---- a/lib/find.pl -+++ b/lib/find.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # This library is deprecated and unmaintained. It is included for - # compatibility with Perl 4 scripts which may use it, but it will be -diff --git a/lib/finddepth.pl b/lib/finddepth.pl -index 479905f..c07cea5 100644 ---- a/lib/finddepth.pl -+++ b/lib/finddepth.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # This library is deprecated and unmaintained. It is included for - # compatibility with Perl 4 scripts which may use it, but it will be -diff --git a/lib/flush.pl b/lib/flush.pl -index c427976..e5ed0ae 100644 ---- a/lib/flush.pl -+++ b/lib/flush.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # - # This library is no longer being maintained, and is included for backward -diff --git a/lib/getcwd.pl b/lib/getcwd.pl -index 77b2442..3810a99 100644 ---- a/lib/getcwd.pl -+++ b/lib/getcwd.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # By Brandon S. Allbery - # -diff --git a/lib/getopt.pl b/lib/getopt.pl -index 1d4008a..019a165 100644 ---- a/lib/getopt.pl -+++ b/lib/getopt.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - ;# $RCSfile: getopt.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:23:58 $ - # -diff --git a/lib/getopts.pl b/lib/getopts.pl -index 37ecb4a..3d27418 100644 ---- a/lib/getopts.pl -+++ b/lib/getopts.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - ;# getopts.pl - a better getopt.pl - # -diff --git a/lib/hostname.pl b/lib/hostname.pl -index f57375e..b055d30 100644 ---- a/lib/hostname.pl -+++ b/lib/hostname.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # From: asherman@fmrco.com (Aaron Sherman) - # -diff --git a/lib/importenv.pl b/lib/importenv.pl -index 625edf6..52ee722 100644 ---- a/lib/importenv.pl -+++ b/lib/importenv.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # This library is no longer being maintained, and is included for backward - # compatibility with Perl 4 programs which may require it. -diff --git a/lib/look.pl b/lib/look.pl -index 7be55b2..12dcace 100644 ---- a/lib/look.pl -+++ b/lib/look.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - ;# Usage: &look(*FILEHANDLE,$key,$dict,$fold) - # -diff --git a/lib/newgetopt.pl b/lib/newgetopt.pl -index 4ac9470..08df6cb 100644 ---- a/lib/newgetopt.pl -+++ b/lib/newgetopt.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # This library is no longer being maintained, and is included for backward - # compatibility with Perl 4 programs which may require it. -diff --git a/lib/open2.pl b/lib/open2.pl -index ceb5653..a05f2ab 100644 ---- a/lib/open2.pl -+++ b/lib/open2.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # This legacy library is deprecated and will be removed in a future - # release of perl. -diff --git a/lib/open3.pl b/lib/open3.pl -index 9f4d5a4..27f7ab4 100644 ---- a/lib/open3.pl -+++ b/lib/open3.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # This legacy library is deprecated and will be removed in a future - # release of perl. -diff --git a/lib/pwd.pl b/lib/pwd.pl -index bd8123b..bdace6e 100644 ---- a/lib/pwd.pl -+++ b/lib/pwd.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - ;# pwd.pl - keeps track of current working directory in PWD environment var - ;# -diff --git a/lib/shellwords.pl b/lib/shellwords.pl -index b562f5f..7f16375 100644 ---- a/lib/shellwords.pl -+++ b/lib/shellwords.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - ;# This legacy library is deprecated and will be removed in a future - ;# release of perl. -diff --git a/lib/stat.pl b/lib/stat.pl -index feda273..910ce1c 100644 ---- a/lib/stat.pl -+++ b/lib/stat.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - ;# This legacy library is deprecated and will be removed in a future - ;# release of perl. -diff --git a/lib/syslog.pl b/lib/syslog.pl -index 7504a5d..4c2b95f 100644 ---- a/lib/syslog.pl -+++ b/lib/syslog.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # - # syslog.pl -diff --git a/lib/tainted.pl b/lib/tainted.pl -index e88bca1..d58c765 100644 ---- a/lib/tainted.pl -+++ b/lib/tainted.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - # This legacy library is deprecated and will be removed in a future - # release of perl. -diff --git a/lib/termcap.pl b/lib/termcap.pl -index a84cba3..e641f4d 100644 ---- a/lib/termcap.pl -+++ b/lib/termcap.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - ;# $RCSfile: termcap.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:16 $ - # -diff --git a/lib/timelocal.pl b/lib/timelocal.pl -index fefb9da..2297888 100644 ---- a/lib/timelocal.pl -+++ b/lib/timelocal.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - ;# timelocal.pl - ;# -diff --git a/lib/validate.pl b/lib/validate.pl -index fc2d16a..1a8aef4 100644 ---- a/lib/validate.pl -+++ b/lib/validate.pl -@@ -1,4 +1,4 @@ --warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; -+warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; - - ;# The validate routine takes a single multiline string consisting of - ;# lines containing a filename plus a file test to try on it. (The |