add disclaimer about perl 4 libraries (modified version of

patch suggested by Clinton Pierce <cpierce1@ford.com>)

p4raw-id: //depot/perl@3759

diff --git a/lib/abbrev.pl b/lib/abbrev.pl
index 62975e6..c505a6f 100644 (file)
--- a/lib/abbrev.pl
+++ b/lib/abbrev.pl
@@ -4,6 +4,16 @@
 ;#     ...
 ;#     $long = $foo{$short};
 
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Text::Abbrev
+#
+
 package abbrev;
 
 sub main'abbrev {

diff --git a/lib/bigfloat.pl b/lib/bigfloat.pl
index 032dfe6..6af5f17 100644 (file)
--- a/lib/bigfloat.pl
+++ b/lib/bigfloat.pl
@@ -1,5 +1,14 @@
 package bigfloat;
 require "bigint.pl";
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Math::BigFloat
+#
 # Arbitrary length float math package
 #
 # by Mark Biggar

diff --git a/lib/bigint.pl b/lib/bigint.pl
index adeb17f..4044f7f 100644 (file)
--- a/lib/bigint.pl
+++ b/lib/bigint.pl
@@ -1,5 +1,13 @@
 package bigint;
-
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative:  Math::BigInt
+#
 # arbitrary size integer math package
 #
 # by Mark Biggar

diff --git a/lib/bigrat.pl b/lib/bigrat.pl
index fb436ce..2d3738f 100644 (file)
--- a/lib/bigrat.pl
+++ b/lib/bigrat.pl
@@ -1,6 +1,12 @@
 package bigrat;
 require "bigint.pl";
-
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
 # Arbitrary size rational math package
 #
 # by Mark Biggar

diff --git a/lib/cacheout.pl b/lib/cacheout.pl
index 64378cf..d2669a1 100644 (file)
--- a/lib/cacheout.pl
+++ b/lib/cacheout.pl
@@ -1,3 +1,12 @@
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: FileCache
+
 # Open in their package.
 
 sub cacheout'open {

diff --git a/lib/chat2.pl b/lib/chat2.pl
index 094d3df..504fa7e 100644 (file)
--- a/lib/chat2.pl
+++ b/lib/chat2.pl
@@ -1,4 +1,13 @@
 # chat.pl: chat with a server
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Socket
+#
 # Based on: V2.01.alpha.7 91/06/16
 # Randal L. Schwartz (was <merlyn@stonehenge.com>)
 # multihome additions by A.Macpherson@bnr.co.uk

diff --git a/lib/complete.pl b/lib/complete.pl
index 539f2f7..925ce86 100644 (file)
--- a/lib/complete.pl
+++ b/lib/complete.pl
@@ -1,4 +1,13 @@
 ;#
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Term::Complete
+#
 ;#      @(#)complete.pl,v1.1            (me@anywhere.EBay.Sun.COM) 09/23/91
 ;#
 ;# Author: Wayne Thompson

diff --git a/lib/ctime.pl b/lib/ctime.pl
index 14e122a..6a3f295 100644 (file)
--- a/lib/ctime.pl
+++ b/lib/ctime.pl
@@ -1,4 +1,12 @@
 ;# 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
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: the POSIX ctime function
 ;#
 ;# Waldemar Kebsch, Federal Republic of Germany, November 1988
 ;# kebsch.pad@nixpbe.UUCP

diff --git a/lib/dotsh.pl b/lib/dotsh.pl
index 4982b17..5be2413 100644 (file)
--- a/lib/dotsh.pl
+++ b/lib/dotsh.pl
@@ -1,6 +1,13 @@
 #
 #   @(#)dotsh.pl                                               03/19/94
 #
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+#
 #   Author: Charles Collins
 #
 #   Description:

diff --git a/lib/exceptions.pl b/lib/exceptions.pl
index 02c4498..ed1f927 100644 (file)
--- a/lib/exceptions.pl
+++ b/lib/exceptions.pl
@@ -1,5 +1,12 @@
 # exceptions.pl
 # tchrist@convex.com
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
 # 
 # Here's a little code I use for exception handling.  It's really just
 # glorfied eval/die.  The way to use use it is when you might otherwise

diff --git a/lib/fastcwd.pl b/lib/fastcwd.pl
index 6b452e8..ecd87c8 100644 (file)
--- a/lib/fastcwd.pl
+++ b/lib/fastcwd.pl
@@ -1,5 +1,13 @@
 # By John Bazik
 #
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Cwd
+#
 # Usage: $cwd = &fastcwd;
 #
 # This is a faster version of getcwd.  It's also more dangerous because

diff --git a/lib/flush.pl b/lib/flush.pl
index 55002b9..8aa6d55 100644 (file)
--- a/lib/flush.pl
+++ b/lib/flush.pl
@@ -1,3 +1,12 @@
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: IO::Handle
+#
 ;# Usage: &flush(FILEHANDLE)
 ;# flushes the named filehandle
 

diff --git a/lib/ftp.pl b/lib/ftp.pl
index fd78162..aa6a489 100644 (file)
--- a/lib/ftp.pl
+++ b/lib/ftp.pl
@@ -1,4 +1,13 @@
 #-*-perl-*-
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Net::FTP
+#
 # This is a wrapper to the chat2.pl routines that make life easier
 # to do ftp type work.
 # Mostly by Lee McLoughlin <lmjm@doc.ic.ac.uk>

diff --git a/lib/getcwd.pl b/lib/getcwd.pl
index 9dd6945..eca6ba1 100644 (file)
--- a/lib/getcwd.pl
+++ b/lib/getcwd.pl
@@ -1,5 +1,14 @@
 # By Brandon S. Allbery
 #
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Cwd
+#
+#
 # Usage: $cwd = &getcwd;
 
 sub getcwd

diff --git a/lib/getopt.pl b/lib/getopt.pl
index f871e41..77d8d89 100644 (file)
--- a/lib/getopt.pl
+++ b/lib/getopt.pl
@@ -1,5 +1,13 @@
 ;# $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
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternatives: Getopt::Long or Getopt::Std
+#
 ;# Process single-character switches with switch clustering.  Pass one argument
 ;# which is a string containing all switches that take an argument.  For each
 ;# switch found, sets $opt_x (where x is the switch name) to the value of the

diff --git a/lib/getopts.pl b/lib/getopts.pl
index 852aae8..2595819 100644 (file)
--- a/lib/getopts.pl
+++ b/lib/getopts.pl
@@ -1,5 +1,13 @@
 ;# getopts.pl - a better getopt.pl
-
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternatives: Getopt::Long  or  Getopt::Std
+#
 ;# Usage:
 ;#      do Getopts('a:bc');  # -a takes arg. -b & -c not. Sets opt_* as a
 ;#                           #  side effect.

diff --git a/lib/hostname.pl b/lib/hostname.pl
index 5394c6e..63eea8f 100644 (file)
--- a/lib/hostname.pl
+++ b/lib/hostname.pl
@@ -1,5 +1,13 @@
 # From: asherman@fmrco.com (Aaron Sherman)
-
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Sys::Hostname
+#
 sub hostname
 {
        local(*P,@tmp,$hostname,$_);

diff --git a/lib/look.pl b/lib/look.pl
index e8dc8aa..ccc9b61 100644 (file)
--- a/lib/look.pl
+++ b/lib/look.pl
@@ -1,5 +1,11 @@
 ;# Usage: &look(*FILEHANDLE,$key,$dict,$fold)
-
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
 ;# Sets file position in FILEHANDLE to be first line greater than or equal
 ;# (stringwise) to $key.  Pass flags for dictionary order and case folding.
 

diff --git a/lib/pwd.pl b/lib/pwd.pl
index beb5916..47539aa 100644 (file)
--- a/lib/pwd.pl
+++ b/lib/pwd.pl
@@ -1,5 +1,14 @@
 ;# pwd.pl - keeps track of current working directory in PWD environment var
 ;#
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Cwd
+#
 ;# $RCSfile: pwd.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:11 $
 ;#
 ;# $Log:       pwd.pl,v $

diff --git a/lib/termcap.pl b/lib/termcap.pl
index 3731343..06da956 100644 (file)
--- a/lib/termcap.pl
+++ b/lib/termcap.pl
@@ -1,4 +1,13 @@
 ;# $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
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Term::Cap
+#
 ;#
 ;# Usage:
 ;#     require 'ioctl.pl';