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.

diff --git a/lib/abbrev.pl b/lib/abbrev.pl
index 673783e..d46321f 100644 (file)
--- 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 10d2d1a..d47e006 100644 (file)
--- 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 b526b8e..82d0f5c 100644 (file)
--- 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 941d53d..cf915f7 100644 (file)
--- 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 6f5905f..36c283c 100644 (file)
--- 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 368e98e..a5da453 100644 (file)
--- 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 2fb3b33..9ed041c 100644 (file)
--- 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 1db90c4..aa00d00 100644 (file)
--- 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 2ae88ba..92f1f4c 100644 (file)
--- 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 09a4d3e..2ae8d4e 100644 (file)
--- 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 34b60f7..70007a1 100644 (file)
--- 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 f79decf..8e1b42c 100644 (file)
--- 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 331247a..479905f 100644 (file)
--- 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 e621ff0..c427976 100644 (file)
--- 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 1c6b761..77b2442 100644 (file)
--- 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 2c05b2b..1d4008a 100644 (file)
--- 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 928bb22..37ecb4a 100644 (file)
--- 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 33907c6..f57375e 100644 (file)
--- 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 865a226..625edf6 100644 (file)
--- 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 f2a4e09..7be55b2 100644 (file)
--- 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 d6d8b0b..7ac684f 100644 (file)
--- 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 96d80d7..ceb5653 100644 (file)
--- 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 9a387eb..9f4d5a4 100644 (file)
--- 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 68b59fc..bd8123b 100644 (file)
--- 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 b24ce96..b562f5f 100644 (file)
--- 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 d73e410..feda273 100644 (file)
--- 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 f0dbb1c..7504a5d 100644 (file)
--- 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 a3a560f..e88bca1 100644 (file)
--- 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 4c029d3..a84cba3 100644 (file)
--- 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 5e08dad..fefb9da 100644 (file)
--- 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 c655872..fc2d16a 100644 (file)
--- 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