deprecation warning on deprecated-in-core .pl libs

This is a mandatory warning, not obeying -X or lexical warning bits.
To make it behave like an internal deprecation warning would be a lot
of hassle to do in pure Perl.

The warning is modelled on that supplied by deprecate.pm for
deprecated-in-core .pm libraries.  It points to the specific CPAN
distribution that contains the .pl libraries.  The CPAN version, of
course, does not generate the warning.

31 files changed, 62 insertions, 0 deletions

diff --git a/lib/abbrev.pl b/lib/abbrev.pl
index 673783ecdf..d46321f730 100644
--- a/lib/abbrev.pl
+++ b/lib/abbrev.pl
@@ -1,3 +1,5 @@
+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";
+
 ;# Usage:
 ;#	%foo = ();
 ;#	&abbrev(*foo,LIST);
diff --git a/lib/assert.pl b/lib/assert.pl
index 10d2d1a240..d47e0067a2 100644
--- a/lib/assert.pl
+++ b/lib/assert.pl
@@ -1,3 +1,5 @@
+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";
+
 #
 # 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/bigfloat.pl b/lib/bigfloat.pl
index b526b8e4e8..82d0f5c4df 100644
--- a/lib/bigfloat.pl
+++ b/lib/bigfloat.pl
@@ -1,3 +1,5 @@
+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";
+
 package bigfloat;
 require "bigint.pl";
 #
diff --git a/lib/bigint.pl b/lib/bigint.pl
index 941d53d972..cf915f7a6c 100644
--- a/lib/bigint.pl
+++ b/lib/bigint.pl
@@ -1,3 +1,5 @@
+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";
+
 package bigint;
 #
 # This library is no longer being maintained, and is included for backward
diff --git a/lib/bigrat.pl b/lib/bigrat.pl
index 6f5905f918..36c283cd88 100644
--- a/lib/bigrat.pl
+++ b/lib/bigrat.pl
@@ -1,3 +1,5 @@
+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";
+
 package bigrat;
 require "bigint.pl";
 #
diff --git a/lib/cacheout.pl b/lib/cacheout.pl
index 368e98ee21..a5da453a2a 100644
--- a/lib/cacheout.pl
+++ b/lib/cacheout.pl
@@ -1,3 +1,5 @@
+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";
+
 #
 # 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/complete.pl b/lib/complete.pl
index 2fb3b33b85..9ed041ca83 100644
--- a/lib/complete.pl
+++ b/lib/complete.pl
@@ -1,3 +1,5 @@
+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";
+
 ;#
 #
 # This library is no longer being maintained, and is included for backward
diff --git a/lib/ctime.pl b/lib/ctime.pl
index 1db90c47bd..aa00d00310 100644
--- a/lib/ctime.pl
+++ b/lib/ctime.pl
@@ -1,3 +1,5 @@
+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";
+
 ;# ctime.pl is a simple Perl emulation for the well known ctime(3C) function.
 #
 # This library is no longer being maintained, and is included for backward
diff --git a/lib/dotsh.pl b/lib/dotsh.pl
index 2ae88ba43d..92f1f4c1fa 100644
--- a/lib/dotsh.pl
+++ b/lib/dotsh.pl
@@ -1,3 +1,5 @@
+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";
+
 #
 #   @(#)dotsh.pl                                               03/19/94
 #
diff --git a/lib/exceptions.pl b/lib/exceptions.pl
index 09a4d3e7ae..2ae8d4e2c2 100644
--- a/lib/exceptions.pl
+++ b/lib/exceptions.pl
@@ -1,3 +1,5 @@
+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";
+
 # exceptions.pl
 # tchrist@convex.com
 #
diff --git a/lib/fastcwd.pl b/lib/fastcwd.pl
index 34b60f71a0..70007a1001 100644
--- a/lib/fastcwd.pl
+++ b/lib/fastcwd.pl
@@ -1,3 +1,5 @@
+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";
+
 # By John Bazik
 #
 # This library is no longer being maintained, and is included for backward
diff --git a/lib/find.pl b/lib/find.pl
index f79decf837..8e1b42c88a 100644
--- a/lib/find.pl
+++ b/lib/find.pl
@@ -1,3 +1,5 @@
+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";
+
 # This library is deprecated and unmaintained. It is included for
 # compatibility with Perl 4 scripts which may use it, but it will be
 # removed in a future version of Perl. Please use the File::Find module
diff --git a/lib/finddepth.pl b/lib/finddepth.pl
index 331247ae29..479905f6f8 100644
--- a/lib/finddepth.pl
+++ b/lib/finddepth.pl
@@ -1,3 +1,5 @@
+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";
+
 # This library is deprecated and unmaintained. It is included for
 # compatibility with Perl 4 scripts which may use it, but it will be
 # removed in a future version of Perl. Please use the File::Find module
diff --git a/lib/flush.pl b/lib/flush.pl
index e621ff063c..c427976b51 100644
--- a/lib/flush.pl
+++ b/lib/flush.pl
@@ -1,3 +1,5 @@
+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";
+
 #
 # 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/getcwd.pl b/lib/getcwd.pl
index 1c6b761f23..77b2442d3b 100644
--- a/lib/getcwd.pl
+++ b/lib/getcwd.pl
@@ -1,3 +1,5 @@
+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";
+
 # By Brandon S. Allbery
 #
 # This library is no longer being maintained, and is included for backward
diff --git a/lib/getopt.pl b/lib/getopt.pl
index 2c05b2b0ee..1d4008aaf6 100644
--- a/lib/getopt.pl
+++ b/lib/getopt.pl
@@ -1,3 +1,5 @@
+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";
+
 ;# $RCSfile: getopt.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:23:58 $
 #
 # This library is no longer being maintained, and is included for backward
diff --git a/lib/getopts.pl b/lib/getopts.pl
index 928bb225a8..37ecb4aaa4 100644
--- a/lib/getopts.pl
+++ b/lib/getopts.pl
@@ -1,3 +1,5 @@
+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";
+
 ;# getopts.pl - a better getopt.pl
 #
 # This library is no longer being maintained, and is included for backward
diff --git a/lib/hostname.pl b/lib/hostname.pl
index 33907c6cb7..f57375e98b 100644
--- a/lib/hostname.pl
+++ b/lib/hostname.pl
@@ -1,3 +1,5 @@
+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";
+
 # From: asherman@fmrco.com (Aaron Sherman)
 #
 # This library is no longer being maintained, and is included for backward
diff --git a/lib/importenv.pl b/lib/importenv.pl
index 865a22652d..625edf636d 100644
--- a/lib/importenv.pl
+++ b/lib/importenv.pl
@@ -1,3 +1,5 @@
+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";
+
 # This library is no longer being maintained, and is included for backward
 # compatibility with Perl 4 programs which may require it.
 # This legacy library is deprecated and will be removed in a future
diff --git a/lib/look.pl b/lib/look.pl
index f2a4e09dd6..7be55b2d67 100644
--- a/lib/look.pl
+++ b/lib/look.pl
@@ -1,3 +1,5 @@
+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";
+
 ;# Usage: &look(*FILEHANDLE,$key,$dict,$fold)
 #
 # This library is no longer being maintained, and is included for backward
diff --git a/lib/newgetopt.pl b/lib/newgetopt.pl
index d6d8b0b07b..7ac684fe96 100644
--- a/lib/newgetopt.pl
+++ b/lib/newgetopt.pl
@@ -1,3 +1,5 @@
+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";
+
 # $Id: newgetopt.pl,v 1.18 2001/09/21 13:34:59 jv Exp $
 
 # This library is no longer being maintained, and is included for backward
diff --git a/lib/open2.pl b/lib/open2.pl
index 96d80d7b26..ceb56536d8 100644
--- a/lib/open2.pl
+++ b/lib/open2.pl
@@ -1,3 +1,5 @@
+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";
+
 # 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 9a387eb9a0..9f4d5a40a4 100644
--- a/lib/open3.pl
+++ b/lib/open3.pl
@@ -1,3 +1,5 @@
+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";
+
 # 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 68b59fcc21..bd8123bb61 100644
--- a/lib/pwd.pl
+++ b/lib/pwd.pl
@@ -1,3 +1,5 @@
+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";
+
 ;# pwd.pl - keeps track of current working directory in PWD environment var
 ;#
 #
diff --git a/lib/shellwords.pl b/lib/shellwords.pl
index b24ce963ad..b562f5f10b 100644
--- a/lib/shellwords.pl
+++ b/lib/shellwords.pl
@@ -1,3 +1,5 @@
+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";
+
 ;# 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 d73e410c30..feda273964 100644
--- a/lib/stat.pl
+++ b/lib/stat.pl
@@ -1,3 +1,5 @@
+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";
+
 ;# 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 f0dbb1c96a..7504a5ded8 100644
--- a/lib/syslog.pl
+++ b/lib/syslog.pl
@@ -1,3 +1,5 @@
+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";
+
 #
 # syslog.pl
 #
diff --git a/lib/tainted.pl b/lib/tainted.pl
index a3a560ffec..e88bca1a26 100644
--- a/lib/tainted.pl
+++ b/lib/tainted.pl
@@ -1,3 +1,5 @@
+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";
+
 # This legacy library is deprecated and will be removed in a future
 # release of perl.
 # This subroutine returns true if its argument is tainted, false otherwise.
diff --git a/lib/termcap.pl b/lib/termcap.pl
index 4c029d313f..a84cba34e9 100644
--- a/lib/termcap.pl
+++ b/lib/termcap.pl
@@ -1,3 +1,5 @@
+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";
+
 ;# $RCSfile: termcap.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:16 $
 #
 # This library is no longer being maintained, and is included for backward
diff --git a/lib/timelocal.pl b/lib/timelocal.pl
index 5e08dad9e3..fefb9da355 100644
--- a/lib/timelocal.pl
+++ b/lib/timelocal.pl
@@ -1,3 +1,5 @@
+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";
+
 ;# timelocal.pl
 ;#
 ;# Usage:
diff --git a/lib/validate.pl b/lib/validate.pl
index c655872333..fc2d16a154 100644
--- a/lib/validate.pl
+++ b/lib/validate.pl
@@ -1,3 +1,5 @@
+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";
+
 ;# The validate routine takes a single multiline string consisting of
 ;# lines containing a filename plus a file test to try on it.  (The
 ;# file test may also be a 'cd', causing subsequent relative filenames