Documentation patches to lib/*.pl

[p5pRT]

Migrated from rt.perl.org#1029 (status was 'resolved')

Searchable as RT1029$

[p5pRT]

From [email protected]

When appropriate, alternate modules are suggested.

These particular programs were selected because they just do not work
(i.e. chat2.pl) or because they displayed Perl 4 programming habits
(package names with ' and local() declarations).

I'm submitting this because I had a junior programmer pick up "chat2.pl"
as an example of how to write that kind of script. His arguments seemed
valid​: there was nothing indicating that this was unsupported, no longer
maintained and poor Perl 5. The RCS date of 1991 didn't phase him a bit.

diff -c old/abbrev.pl new/abbrev.pl
*** old/abbrev.pl Fri Jul 23 11​:28​:55 1999
--- new/abbrev.pl Fri Jul 23 11​:33​:02 1999
***************
*** 4,9 ****
--- 4,18 ----
  ;# ...
  ;# $long = $foo{$short};
 
+ #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Text​::Abbrev
+ #
+
  package abbrev;
 
  sub main'abbrev {
diff -c old/bigfloat.pl new/bigfloat.pl
*** old/bigfloat.pl Fri Jul 23 11​:28​:55 1999
--- new/bigfloat.pl Fri Jul 23 11​:33​:20 1999
***************
*** 1,5 ****
--- 1,13 ----
  package bigfloat;
  require "bigint.pl";
+ #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Math​::BigFloat
+ #
  # Arbitrary length float math package
  #
  # by Mark Biggar
diff -c old/bigint.pl new/bigint.pl
*** old/bigint.pl Fri Jul 23 11​:28​:55 1999
--- new/bigint.pl Fri Jul 23 11​:33​:33 1999
***************
*** 1,5 ****
  package bigint;
!
  # arbitrary size integer math package
  #
  # by Mark Biggar
--- 1,12 ----
  package bigint;
! #
! # This program is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This program
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # programming techniques.
! #
! # Suggested alternative​: Math​::BigInt
! #
  # arbitrary size integer math package
  #
  # by Mark Biggar
diff -c old/bigrat.pl new/bigrat.pl
*** old/bigrat.pl Fri Jul 23 11​:28​:55 1999
--- new/bigrat.pl Fri Jul 23 11​:33​:54 1999
***************
*** 1,6 ****
  package bigrat;
  require "bigint.pl";
!
  # Arbitrary size rational math package
  #
  # by Mark Biggar
--- 1,11 ----
  package bigrat;
  require "bigint.pl";
! #
! # This program is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This program
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # programming techniques.
! #
  # Arbitrary size rational math package
  #
  # by Mark Biggar
diff -c old/cacheout.pl new/cacheout.pl
*** old/cacheout.pl Fri Jul 23 11​:28​:55 1999
--- new/cacheout.pl Fri Jul 23 11​:34​:14 1999
***************
*** 1,3 ****
--- 1,11 ----
+ #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: FileCache
+
  # Open in their package.
 
  sub cacheout'open {
diff -c old/chat2.pl new/chat2.pl
*** old/chat2.pl Fri Jul 23 11​:28​:55 1999
--- new/chat2.pl Fri Jul 23 11​:34​:30 1999
***************
*** 1,4 ****
--- 1,12 ----
  # chat.pl​: chat with a server
+ #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # 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 -c old/complete.pl new/complete.pl
*** old/complete.pl Fri Jul 23 11​:28​:55 1999
--- new/complete.pl Fri Jul 23 11​:35​:14 1999
***************
*** 1,4 ****
--- 1,12 ----
  ;#
+ #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Term​::Complete
+ #
  ;# @​(#)complete.pl,v1.1 (me@​anywhere.EBay.Sun.COM) 09/23/91
  ;#
  ;# Author​: Wayne Thompson
diff -c old/ctime.pl new/ctime.pl
*** old/ctime.pl Fri Jul 23 11​:28​:55 1999
--- new/ctime.pl Fri Jul 23 11​:35​:40 1999
***************
*** 1,4 ****
--- 1,11 ----
  ;# ctime.pl is a simple Perl emulation for the well known ctime(3C) function.
+ #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: the POSIX ctime function
  ;#
  ;# Waldemar Kebsch, Federal Republic of Germany, November 1988
  ;# kebsch.pad@​nixpbe.UUCP
diff -c old/dotsh.pl new/dotsh.pl
*** old/dotsh.pl Fri Jul 23 11​:28​:55 1999
--- new/dotsh.pl Fri Jul 23 11​:35​:57 1999
***************
*** 1,6 ****
--- 1,12 ----
  #
  # @​(#)dotsh.pl 03/19/94
  #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ #
  # Author​: Charles Collins
  #
  # Description​:
diff -c old/exceptions.pl new/exceptions.pl
*** old/exceptions.pl Fri Jul 23 11​:28​:55 1999
--- new/exceptions.pl Fri Jul 23 11​:36​:13 1999
***************
*** 1,5 ****
--- 1,11 ----
  # exceptions.pl
  # tchrist@​convex.com
+ #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # 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 -c old/fastcwd.pl new/fastcwd.pl
*** old/fastcwd.pl Fri Jul 23 11​:28​:55 1999
--- new/fastcwd.pl Fri Jul 23 11​:36​:26 1999
***************
*** 1,5 ****
--- 1,12 ----
  # By John Bazik
  #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Cwd
+ #
  # Usage​: $cwd = &fastcwd;
  #
  # This is a faster version of getcwd. It's also more dangerous because
diff -c old/flush.pl new/flush.pl
*** old/flush.pl Fri Jul 23 11​:28​:55 1999
--- new/flush.pl Fri Jul 23 11​:36​:47 1999
***************
*** 1,3 ****
--- 1,11 ----
+ #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: IO​::Handle
+ #
  ;# Usage​: &flush(FILEHANDLE)
  ;# flushes the named filehandle
 
diff -c old/ftp.pl new/ftp.pl
*** old/ftp.pl Fri Jul 23 11​:28​:55 1999
--- new/ftp.pl Fri Jul 23 11​:37​:01 1999
***************
*** 1,4 ****
--- 1,12 ----
  #-*-perl-*-
+ #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # 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 -c old/getcwd.pl new/getcwd.pl
*** old/getcwd.pl Fri Jul 23 11​:28​:55 1999
--- new/getcwd.pl Fri Jul 23 11​:37​:17 1999
***************
*** 1,5 ****
--- 1,13 ----
  # By Brandon S. Allbery
  #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Cwd
+ #
+ #
  # Usage​: $cwd = &getcwd;
 
  sub getcwd
diff -c old/getopt.pl new/getopt.pl
*** old/getopt.pl Fri Jul 23 11​:28​:55 1999
--- new/getopt.pl Fri Jul 23 11​:37​:30 1999
***************
*** 1,5 ****
  ;# $RCSfile​: getopt.pl,v $$Revision​: 4.1 $$Date​: 92/08/07 18​:23​:58 $
!
  ;# 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
--- 1,12 ----
  ;# $RCSfile​: getopt.pl,v $$Revision​: 4.1 $$Date​: 92/08/07 18​:23​:58 $
! #
! # This program is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This program
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # 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 -c old/getopts.pl new/getopts.pl
*** old/getopts.pl Fri Jul 23 11​:28​:55 1999
--- new/getopts.pl Fri Jul 23 11​:37​:47 1999
***************
*** 1,5 ****
  ;# getopts.pl - a better getopt.pl
!
  ;# Usage​:
  ;# do Getopts('a​:bc'); # -a takes arg. -b & -c not. Sets opt_* as a
  ;# # side effect.
--- 1,12 ----
  ;# getopts.pl - a better getopt.pl
! #
! # This program is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This program
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # 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 -c old/hostname.pl new/hostname.pl
*** old/hostname.pl Fri Jul 23 11​:28​:55 1999
--- new/hostname.pl Fri Jul 23 11​:37​:59 1999
***************
*** 1,5 ****
  # From​: asherman@​fmrco.com (Aaron Sherman)
!
  sub hostname
  {
  local(*P,@​tmp,$hostname,$_);
--- 1,12 ----
  # From​: asherman@​fmrco.com (Aaron Sherman)
! #
! # This program is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This program
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # programming techniques.
! #
! # Suggested alternative​: Sys​::Hostname
! #
  sub hostname
  {
  local(*P,@​tmp,$hostname,$_);
diff -c old/look.pl new/look.pl
*** old/look.pl Fri Jul 23 11​:28​:55 1999
--- new/look.pl Fri Jul 23 11​:38​:08 1999
***************
*** 1,5 ****
  ;# Usage​: &look(*FILEHANDLE,$key,$dict,$fold)
!
  ;# Sets file position in FILEHANDLE to be first line greater than or equal
  ;# (stringwise) to $key. Pass flags for dictionary order and case folding.
 
--- 1,10 ----
  ;# Usage​: &look(*FILEHANDLE,$key,$dict,$fold)
! #
! # This program is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This program
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # 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 -c old/pwd.pl new/pwd.pl
*** old/pwd.pl Fri Jul 23 11​:28​:55 1999
--- new/pwd.pl Fri Jul 23 11​:38​:23 1999
***************
*** 1,5 ****
--- 1,13 ----
  ;# pwd.pl - keeps track of current working directory in PWD environment var
  ;#
+ #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Cwd
+ #
  ;# $RCSfile​: pwd.pl,v $$Revision​: 4.1 $$Date​: 92/08/07 18​:24​:11 $
  ;#
  ;# $Log​: pwd.pl,v $
diff -c old/termcap.pl new/termcap.pl
*** old/termcap.pl Fri Jul 23 11​:28​:55 1999
--- new/termcap.pl Fri Jul 23 11​:38​:37 1999
***************
*** 1,4 ****
--- 1,12 ----
  ;# $RCSfile​: termcap.pl,v $$Revision​: 4.1 $$Date​: 92/08/07 18​:24​:16 $
+ #
+ # This program is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This program
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Term​::Cap
+ #
  ;#
  ;# Usage​:
  ;# require 'ioctl.pl';

--
Clinton A. Pierce "If you rush a Miracle Man, you get rotten
clintp@​geeksalad.org Miracles." -- Miracle Max, The Princess Bride
http​://www.geeksalad.org

[p5pRT]

From [Unknown Contact. See original ticket]

This is a re-submission of item [ID19990723.001] using the correct
terminology for those particular *.pl files​: library.

diff -c old/abbrev.pl new/abbrev.pl
*** old/abbrev.pl Fri Jul 23 11​:28​:55 1999
--- new/abbrev.pl Fri Jul 23 11​:33​:02 1999
***************
*** 4,9 ****
--- 4,18 ----
  ;# ...
  ;# $long = $foo{$short};
 
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Text​::Abbrev
+ #
+
  package abbrev;
 
  sub main'abbrev {
diff -c old/bigfloat.pl new/bigfloat.pl
*** old/bigfloat.pl Fri Jul 23 11​:28​:55 1999
--- new/bigfloat.pl Fri Jul 23 11​:33​:20 1999
***************
*** 1,5 ****
--- 1,13 ----
  package bigfloat;
  require "bigint.pl";
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Math​::BigFloat
+ #
  # Arbitrary length float math package
  #
  # by Mark Biggar
diff -c old/bigint.pl new/bigint.pl
*** old/bigint.pl Fri Jul 23 11​:28​:55 1999
--- new/bigint.pl Fri Jul 23 11​:33​:33 1999
***************
*** 1,5 ****
  package bigint;
!
  # arbitrary size integer math package
  #
  # by Mark Biggar
--- 1,12 ----
  package bigint;
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # programming techniques.
! #
! # Suggested alternative​: Math​::BigInt
! #
  # arbitrary size integer math package
  #
  # by Mark Biggar
diff -c old/bigrat.pl new/bigrat.pl
*** old/bigrat.pl Fri Jul 23 11​:28​:55 1999
--- new/bigrat.pl Fri Jul 23 11​:33​:54 1999
***************
*** 1,6 ****
  package bigrat;
  require "bigint.pl";
!
  # Arbitrary size rational math package
  #
  # by Mark Biggar
--- 1,11 ----
  package bigrat;
  require "bigint.pl";
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # programming techniques.
! #
  # Arbitrary size rational math package
  #
  # by Mark Biggar
diff -c old/cacheout.pl new/cacheout.pl
*** old/cacheout.pl Fri Jul 23 11​:28​:55 1999
--- new/cacheout.pl Fri Jul 23 11​:34​:14 1999
***************
*** 1,3 ****
--- 1,11 ----
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: FileCache
+
  # Open in their package.
 
  sub cacheout'open {
diff -c old/chat2.pl new/chat2.pl
*** old/chat2.pl Fri Jul 23 11​:28​:55 1999
--- new/chat2.pl Fri Jul 23 11​:34​:30 1999
***************
*** 1,4 ****
--- 1,12 ----
  # chat.pl​: chat with a server
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # 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 -c old/complete.pl new/complete.pl
*** old/complete.pl Fri Jul 23 11​:28​:55 1999
--- new/complete.pl Fri Jul 23 11​:35​:14 1999
***************
*** 1,4 ****
--- 1,12 ----
  ;#
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Term​::Complete
+ #
  ;# @​(#)complete.pl,v1.1 (me@​anywhere.EBay.Sun.COM) 09/23/91
  ;#
  ;# Author​: Wayne Thompson
diff -c old/ctime.pl new/ctime.pl
*** old/ctime.pl Fri Jul 23 11​:28​:55 1999
--- new/ctime.pl Fri Jul 23 11​:35​:40 1999
***************
*** 1,4 ****
--- 1,11 ----
  ;# 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
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: the POSIX ctime function
  ;#
  ;# Waldemar Kebsch, Federal Republic of Germany, November 1988
  ;# kebsch.pad@​nixpbe.UUCP
diff -c old/dotsh.pl new/dotsh.pl
*** old/dotsh.pl Fri Jul 23 11​:28​:55 1999
--- new/dotsh.pl Fri Jul 23 11​:35​:57 1999
***************
*** 1,6 ****
--- 1,12 ----
  #
  # @​(#)dotsh.pl 03/19/94
  #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ #
  # Author​: Charles Collins
  #
  # Description​:
diff -c old/exceptions.pl new/exceptions.pl
*** old/exceptions.pl Fri Jul 23 11​:28​:55 1999
--- new/exceptions.pl Fri Jul 23 11​:36​:13 1999
***************
*** 1,5 ****
--- 1,11 ----
  # exceptions.pl
  # tchrist@​convex.com
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # 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 -c old/fastcwd.pl new/fastcwd.pl
*** old/fastcwd.pl Fri Jul 23 11​:28​:55 1999
--- new/fastcwd.pl Fri Jul 23 11​:36​:26 1999
***************
*** 1,5 ****
--- 1,12 ----
  # By John Bazik
  #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Cwd
+ #
  # Usage​: $cwd = &fastcwd;
  #
  # This is a faster version of getcwd. It's also more dangerous because
diff -c old/flush.pl new/flush.pl
*** old/flush.pl Fri Jul 23 11​:28​:55 1999
--- new/flush.pl Fri Jul 23 11​:36​:47 1999
***************
*** 1,3 ****
--- 1,11 ----
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: IO​::Handle
+ #
  ;# Usage​: &flush(FILEHANDLE)
  ;# flushes the named filehandle
 
diff -c old/ftp.pl new/ftp.pl
*** old/ftp.pl Fri Jul 23 11​:28​:55 1999
--- new/ftp.pl Fri Jul 23 11​:37​:01 1999
***************
*** 1,4 ****
--- 1,12 ----
  #-*-perl-*-
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # 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 -c old/getcwd.pl new/getcwd.pl
*** old/getcwd.pl Fri Jul 23 11​:28​:55 1999
--- new/getcwd.pl Fri Jul 23 11​:37​:17 1999
***************
*** 1,5 ****
--- 1,13 ----
  # By Brandon S. Allbery
  #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Cwd
+ #
+ #
  # Usage​: $cwd = &getcwd;
 
  sub getcwd
diff -c old/getopt.pl new/getopt.pl
*** old/getopt.pl Fri Jul 23 11​:28​:55 1999
--- new/getopt.pl Fri Jul 23 11​:37​:30 1999
***************
*** 1,5 ****
  ;# $RCSfile​: getopt.pl,v $$Revision​: 4.1 $$Date​: 92/08/07 18​:23​:58 $
!
  ;# 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
--- 1,12 ----
  ;# $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
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # 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 -c old/getopts.pl new/getopts.pl
*** old/getopts.pl Fri Jul 23 11​:28​:55 1999
--- new/getopts.pl Fri Jul 23 11​:37​:47 1999
***************
*** 1,5 ****
  ;# getopts.pl - a better getopt.pl
!
  ;# Usage​:
  ;# do Getopts('a​:bc'); # -a takes arg. -b & -c not. Sets opt_* as a
  ;# # side effect.
--- 1,12 ----
  ;# getopts.pl - a better getopt.pl
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # 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 -c old/hostname.pl new/hostname.pl
*** old/hostname.pl Fri Jul 23 11​:28​:55 1999
--- new/hostname.pl Fri Jul 23 11​:37​:59 1999
***************
*** 1,5 ****
  # From​: asherman@​fmrco.com (Aaron Sherman)
!
  sub hostname
  {
  local(*P,@​tmp,$hostname,$_);
--- 1,12 ----
  # From​: asherman@​fmrco.com (Aaron Sherman)
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # programming techniques.
! #
! # Suggested alternative​: Sys​::Hostname
! #
  sub hostname
  {
  local(*P,@​tmp,$hostname,$_);
diff -c old/look.pl new/look.pl
*** old/look.pl Fri Jul 23 11​:28​:55 1999
--- new/look.pl Fri Jul 23 11​:38​:08 1999
***************
*** 1,5 ****
  ;# Usage​: &look(*FILEHANDLE,$key,$dict,$fold)
!
  ;# Sets file position in FILEHANDLE to be first line greater than or equal
  ;# (stringwise) to $key. Pass flags for dictionary order and case folding.
 
--- 1,10 ----
  ;# Usage​: &look(*FILEHANDLE,$key,$dict,$fold)
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # 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 -c old/pwd.pl new/pwd.pl
*** old/pwd.pl Fri Jul 23 11​:28​:55 1999
--- new/pwd.pl Fri Jul 23 11​:38​:23 1999
***************
*** 1,5 ****
--- 1,13 ----
  ;# pwd.pl - keeps track of current working directory in PWD environment var
  ;#
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Cwd
+ #
  ;# $RCSfile​: pwd.pl,v $$Revision​: 4.1 $$Date​: 92/08/07 18​:24​:11 $
  ;#
  ;# $Log​: pwd.pl,v $
diff -c old/termcap.pl new/termcap.pl
*** old/termcap.pl Fri Jul 23 11​:28​:55 1999
--- new/termcap.pl Fri Jul 23 11​:38​:37 1999
***************
*** 1,4 ****
--- 1,12 ----
  ;# $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
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Term​::Cap
+ #
  ;#
  ;# Usage​:
  ;# require 'ioctl.pl';

--
Clinton A. Pierce "If you rush a Miracle Man, you get rotten
clintp@​geeksalad.org Miracles." -- Miracle Max, The Princess Bride
http​://www.geeksalad.org

[p5pRT]

From [Unknown Contact. See original ticket]

This is a re-submission of item [ID19990723.001] using the correct
terminology for those particular *.pl files​: library. (Not "program")

diff -c old/abbrev.pl new/abbrev.pl
*** old/abbrev.pl Fri Jul 23 11​:28​:55 1999
--- new/abbrev.pl Fri Jul 23 11​:33​:02 1999
***************
*** 4,9 ****
--- 4,18 ----
  ;# ...
  ;# $long = $foo{$short};
 
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Text​::Abbrev
+ #
+
  package abbrev;
 
  sub main'abbrev {
diff -c old/bigfloat.pl new/bigfloat.pl
*** old/bigfloat.pl Fri Jul 23 11​:28​:55 1999
--- new/bigfloat.pl Fri Jul 23 11​:33​:20 1999
***************
*** 1,5 ****
--- 1,13 ----
  package bigfloat;
  require "bigint.pl";
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Math​::BigFloat
+ #
  # Arbitrary length float math package
  #
  # by Mark Biggar
diff -c old/bigint.pl new/bigint.pl
*** old/bigint.pl Fri Jul 23 11​:28​:55 1999
--- new/bigint.pl Fri Jul 23 11​:33​:33 1999
***************
*** 1,5 ****
  package bigint;
!
  # arbitrary size integer math package
  #
  # by Mark Biggar
--- 1,12 ----
  package bigint;
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # programming techniques.
! #
! # Suggested alternative​: Math​::BigInt
! #
  # arbitrary size integer math package
  #
  # by Mark Biggar
diff -c old/bigrat.pl new/bigrat.pl
*** old/bigrat.pl Fri Jul 23 11​:28​:55 1999
--- new/bigrat.pl Fri Jul 23 11​:33​:54 1999
***************
*** 1,6 ****
  package bigrat;
  require "bigint.pl";
!
  # Arbitrary size rational math package
  #
  # by Mark Biggar
--- 1,11 ----
  package bigrat;
  require "bigint.pl";
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # programming techniques.
! #
  # Arbitrary size rational math package
  #
  # by Mark Biggar
diff -c old/cacheout.pl new/cacheout.pl
*** old/cacheout.pl Fri Jul 23 11​:28​:55 1999
--- new/cacheout.pl Fri Jul 23 11​:34​:14 1999
***************
*** 1,3 ****
--- 1,11 ----
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: FileCache
+
  # Open in their package.
 
  sub cacheout'open {
diff -c old/chat2.pl new/chat2.pl
*** old/chat2.pl Fri Jul 23 11​:28​:55 1999
--- new/chat2.pl Fri Jul 23 11​:34​:30 1999
***************
*** 1,4 ****
--- 1,12 ----
  # chat.pl​: chat with a server
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # 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 -c old/complete.pl new/complete.pl
*** old/complete.pl Fri Jul 23 11​:28​:55 1999
--- new/complete.pl Fri Jul 23 11​:35​:14 1999
***************
*** 1,4 ****
--- 1,12 ----
  ;#
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Term​::Complete
+ #
  ;# @​(#)complete.pl,v1.1 (me@​anywhere.EBay.Sun.COM) 09/23/91
  ;#
  ;# Author​: Wayne Thompson
diff -c old/ctime.pl new/ctime.pl
*** old/ctime.pl Fri Jul 23 11​:28​:55 1999
--- new/ctime.pl Fri Jul 23 11​:35​:40 1999
***************
*** 1,4 ****
--- 1,11 ----
  ;# 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
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: the POSIX ctime function
  ;#
  ;# Waldemar Kebsch, Federal Republic of Germany, November 1988
  ;# kebsch.pad@​nixpbe.UUCP
diff -c old/dotsh.pl new/dotsh.pl
*** old/dotsh.pl Fri Jul 23 11​:28​:55 1999
--- new/dotsh.pl Fri Jul 23 11​:35​:57 1999
***************
*** 1,6 ****
--- 1,12 ----
  #
  # @​(#)dotsh.pl 03/19/94
  #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ #
  # Author​: Charles Collins
  #
  # Description​:
diff -c old/exceptions.pl new/exceptions.pl
*** old/exceptions.pl Fri Jul 23 11​:28​:55 1999
--- new/exceptions.pl Fri Jul 23 11​:36​:13 1999
***************
*** 1,5 ****
--- 1,11 ----
  # exceptions.pl
  # tchrist@​convex.com
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # 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 -c old/fastcwd.pl new/fastcwd.pl
*** old/fastcwd.pl Fri Jul 23 11​:28​:55 1999
--- new/fastcwd.pl Fri Jul 23 11​:36​:26 1999
***************
*** 1,5 ****
--- 1,12 ----
  # By John Bazik
  #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Cwd
+ #
  # Usage​: $cwd = &fastcwd;
  #
  # This is a faster version of getcwd. It's also more dangerous because
diff -c old/flush.pl new/flush.pl
*** old/flush.pl Fri Jul 23 11​:28​:55 1999
--- new/flush.pl Fri Jul 23 11​:36​:47 1999
***************
*** 1,3 ****
--- 1,11 ----
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: IO​::Handle
+ #
  ;# Usage​: &flush(FILEHANDLE)
  ;# flushes the named filehandle
 
diff -c old/ftp.pl new/ftp.pl
*** old/ftp.pl Fri Jul 23 11​:28​:55 1999
--- new/ftp.pl Fri Jul 23 11​:37​:01 1999
***************
*** 1,4 ****
--- 1,12 ----
  #-*-perl-*-
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # 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 -c old/getcwd.pl new/getcwd.pl
*** old/getcwd.pl Fri Jul 23 11​:28​:55 1999
--- new/getcwd.pl Fri Jul 23 11​:37​:17 1999
***************
*** 1,5 ****
--- 1,13 ----
  # By Brandon S. Allbery
  #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Cwd
+ #
+ #
  # Usage​: $cwd = &getcwd;
 
  sub getcwd
diff -c old/getopt.pl new/getopt.pl
*** old/getopt.pl Fri Jul 23 11​:28​:55 1999
--- new/getopt.pl Fri Jul 23 11​:37​:30 1999
***************
*** 1,5 ****
  ;# $RCSfile​: getopt.pl,v $$Revision​: 4.1 $$Date​: 92/08/07 18​:23​:58 $
!
  ;# 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
--- 1,12 ----
  ;# $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
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # 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 -c old/getopts.pl new/getopts.pl
*** old/getopts.pl Fri Jul 23 11​:28​:55 1999
--- new/getopts.pl Fri Jul 23 11​:37​:47 1999
***************
*** 1,5 ****
  ;# getopts.pl - a better getopt.pl
!
  ;# Usage​:
  ;# do Getopts('a​:bc'); # -a takes arg. -b & -c not. Sets opt_* as a
  ;# # side effect.
--- 1,12 ----
  ;# getopts.pl - a better getopt.pl
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # 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 -c old/hostname.pl new/hostname.pl
*** old/hostname.pl Fri Jul 23 11​:28​:55 1999
--- new/hostname.pl Fri Jul 23 11​:37​:59 1999
***************
*** 1,5 ****
  # From​: asherman@​fmrco.com (Aaron Sherman)
!
  sub hostname
  {
  local(*P,@​tmp,$hostname,$_);
--- 1,12 ----
  # From​: asherman@​fmrco.com (Aaron Sherman)
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # programming techniques.
! #
! # Suggested alternative​: Sys​::Hostname
! #
  sub hostname
  {
  local(*P,@​tmp,$hostname,$_);
diff -c old/look.pl new/look.pl
*** old/look.pl Fri Jul 23 11​:28​:55 1999
--- new/look.pl Fri Jul 23 11​:38​:08 1999
***************
*** 1,5 ****
  ;# Usage​: &look(*FILEHANDLE,$key,$dict,$fold)
!
  ;# Sets file position in FILEHANDLE to be first line greater than or equal
  ;# (stringwise) to $key. Pass flags for dictionary order and case folding.
 
--- 1,10 ----
  ;# Usage​: &look(*FILEHANDLE,$key,$dict,$fold)
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # 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 -c old/pwd.pl new/pwd.pl
*** old/pwd.pl Fri Jul 23 11​:28​:55 1999
--- new/pwd.pl Fri Jul 23 11​:38​:23 1999
***************
*** 1,5 ****
--- 1,13 ----
  ;# pwd.pl - keeps track of current working directory in PWD environment var
  ;#
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Cwd
+ #
  ;# $RCSfile​: pwd.pl,v $$Revision​: 4.1 $$Date​: 92/08/07 18​:24​:11 $
  ;#
  ;# $Log​: pwd.pl,v $
diff -c old/termcap.pl new/termcap.pl
*** old/termcap.pl Fri Jul 23 11​:28​:55 1999
--- new/termcap.pl Fri Jul 23 11​:38​:37 1999
***************
*** 1,4 ****
--- 1,12 ----
  ;# $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
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Term​::Cap
+ #
  ;#
  ;# Usage​:
  ;# require 'ioctl.pl';

--
Clinton A. Pierce "If you rush a Miracle Man, you get rotten
clintp@​geeksalad.org Miracles." -- Miracle Max, The Princess Bride
http​://www.geeksalad.org

[p5pRT]

From [Unknown Contact. See original ticket]

This is a re-submission of item [ID19990723.001] using the correct
terminology for those particular *.pl files​: library.

My mailer at Ford (apparently) has eaten this message the last two times
I've sent it. If you receive a duplicate, I apologize.

I should have used PPT mail in the first place. :)

diff -c old/abbrev.pl new/abbrev.pl
*** old/abbrev.pl Fri Jul 23 11​:28​:55 1999
--- new/abbrev.pl Fri Jul 23 11​:33​:02 1999
***************
*** 4,9 ****
--- 4,18 ----
  ;# ...
  ;# $long = $foo{$short};
 
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Text​::Abbrev
+ #
+
  package abbrev;
 
  sub main'abbrev {
diff -c old/bigfloat.pl new/bigfloat.pl
*** old/bigfloat.pl Fri Jul 23 11​:28​:55 1999
--- new/bigfloat.pl Fri Jul 23 11​:33​:20 1999
***************
*** 1,5 ****
--- 1,13 ----
  package bigfloat;
  require "bigint.pl";
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Math​::BigFloat
+ #
  # Arbitrary length float math package
  #
  # by Mark Biggar
diff -c old/bigint.pl new/bigint.pl
*** old/bigint.pl Fri Jul 23 11​:28​:55 1999
--- new/bigint.pl Fri Jul 23 11​:33​:33 1999
***************
*** 1,5 ****
  package bigint;
!
  # arbitrary size integer math package
  #
  # by Mark Biggar
--- 1,12 ----
  package bigint;
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # programming techniques.
! #
! # Suggested alternative​: Math​::BigInt
! #
  # arbitrary size integer math package
  #
  # by Mark Biggar
diff -c old/bigrat.pl new/bigrat.pl
*** old/bigrat.pl Fri Jul 23 11​:28​:55 1999
--- new/bigrat.pl Fri Jul 23 11​:33​:54 1999
***************
*** 1,6 ****
  package bigrat;
  require "bigint.pl";
!
  # Arbitrary size rational math package
  #
  # by Mark Biggar
--- 1,11 ----
  package bigrat;
  require "bigint.pl";
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # programming techniques.
! #
  # Arbitrary size rational math package
  #
  # by Mark Biggar
diff -c old/cacheout.pl new/cacheout.pl
*** old/cacheout.pl Fri Jul 23 11​:28​:55 1999
--- new/cacheout.pl Fri Jul 23 11​:34​:14 1999
***************
*** 1,3 ****
--- 1,11 ----
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: FileCache
+
  # Open in their package.
 
  sub cacheout'open {
diff -c old/chat2.pl new/chat2.pl
*** old/chat2.pl Fri Jul 23 11​:28​:55 1999
--- new/chat2.pl Fri Jul 23 11​:34​:30 1999
***************
*** 1,4 ****
--- 1,12 ----
  # chat.pl​: chat with a server
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # 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 -c old/complete.pl new/complete.pl
*** old/complete.pl Fri Jul 23 11​:28​:55 1999
--- new/complete.pl Fri Jul 23 11​:35​:14 1999
***************
*** 1,4 ****
--- 1,12 ----
  ;#
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Term​::Complete
+ #
  ;# @​(#)complete.pl,v1.1 (me@​anywhere.EBay.Sun.COM) 09/23/91
  ;#
  ;# Author​: Wayne Thompson
diff -c old/ctime.pl new/ctime.pl
*** old/ctime.pl Fri Jul 23 11​:28​:55 1999
--- new/ctime.pl Fri Jul 23 11​:35​:40 1999
***************
*** 1,4 ****
--- 1,11 ----
  ;# 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
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: the POSIX ctime function
  ;#
  ;# Waldemar Kebsch, Federal Republic of Germany, November 1988
  ;# kebsch.pad@​nixpbe.UUCP
diff -c old/dotsh.pl new/dotsh.pl
*** old/dotsh.pl Fri Jul 23 11​:28​:55 1999
--- new/dotsh.pl Fri Jul 23 11​:35​:57 1999
***************
*** 1,6 ****
--- 1,12 ----
  #
  # @​(#)dotsh.pl 03/19/94
  #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ #
  # Author​: Charles Collins
  #
  # Description​:
diff -c old/exceptions.pl new/exceptions.pl
*** old/exceptions.pl Fri Jul 23 11​:28​:55 1999
--- new/exceptions.pl Fri Jul 23 11​:36​:13 1999
***************
*** 1,5 ****
--- 1,11 ----
  # exceptions.pl
  # tchrist@​convex.com
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # 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 -c old/fastcwd.pl new/fastcwd.pl
*** old/fastcwd.pl Fri Jul 23 11​:28​:55 1999
--- new/fastcwd.pl Fri Jul 23 11​:36​:26 1999
***************
*** 1,5 ****
--- 1,12 ----
  # By John Bazik
  #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Cwd
+ #
  # Usage​: $cwd = &fastcwd;
  #
  # This is a faster version of getcwd. It's also more dangerous because
diff -c old/flush.pl new/flush.pl
*** old/flush.pl Fri Jul 23 11​:28​:55 1999
--- new/flush.pl Fri Jul 23 11​:36​:47 1999
***************
*** 1,3 ****
--- 1,11 ----
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: IO​::Handle
+ #
  ;# Usage​: &flush(FILEHANDLE)
  ;# flushes the named filehandle
 
diff -c old/ftp.pl new/ftp.pl
*** old/ftp.pl Fri Jul 23 11​:28​:55 1999
--- new/ftp.pl Fri Jul 23 11​:37​:01 1999
***************
*** 1,4 ****
--- 1,12 ----
  #-*-perl-*-
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # 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 -c old/getcwd.pl new/getcwd.pl
*** old/getcwd.pl Fri Jul 23 11​:28​:55 1999
--- new/getcwd.pl Fri Jul 23 11​:37​:17 1999
***************
*** 1,5 ****
--- 1,13 ----
  # By Brandon S. Allbery
  #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Cwd
+ #
+ #
  # Usage​: $cwd = &getcwd;
 
  sub getcwd
diff -c old/getopt.pl new/getopt.pl
*** old/getopt.pl Fri Jul 23 11​:28​:55 1999
--- new/getopt.pl Fri Jul 23 11​:37​:30 1999
***************
*** 1,5 ****
  ;# $RCSfile​: getopt.pl,v $$Revision​: 4.1 $$Date​: 92/08/07 18​:23​:58 $
!
  ;# 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
--- 1,12 ----
  ;# $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
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # 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 -c old/getopts.pl new/getopts.pl
*** old/getopts.pl Fri Jul 23 11​:28​:55 1999
--- new/getopts.pl Fri Jul 23 11​:37​:47 1999
***************
*** 1,5 ****
  ;# getopts.pl - a better getopt.pl
!
  ;# Usage​:
  ;# do Getopts('a​:bc'); # -a takes arg. -b & -c not. Sets opt_* as a
  ;# # side effect.
--- 1,12 ----
  ;# getopts.pl - a better getopt.pl
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # 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 -c old/hostname.pl new/hostname.pl
*** old/hostname.pl Fri Jul 23 11​:28​:55 1999
--- new/hostname.pl Fri Jul 23 11​:37​:59 1999
***************
*** 1,5 ****
  # From​: asherman@​fmrco.com (Aaron Sherman)
!
  sub hostname
  {
  local(*P,@​tmp,$hostname,$_);
--- 1,12 ----
  # From​: asherman@​fmrco.com (Aaron Sherman)
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # programming techniques.
! #
! # Suggested alternative​: Sys​::Hostname
! #
  sub hostname
  {
  local(*P,@​tmp,$hostname,$_);
diff -c old/look.pl new/look.pl
*** old/look.pl Fri Jul 23 11​:28​:55 1999
--- new/look.pl Fri Jul 23 11​:38​:08 1999
***************
*** 1,5 ****
  ;# Usage​: &look(*FILEHANDLE,$key,$dict,$fold)
!
  ;# Sets file position in FILEHANDLE to be first line greater than or equal
  ;# (stringwise) to $key. Pass flags for dictionary order and case folding.
 
--- 1,10 ----
  ;# Usage​: &look(*FILEHANDLE,$key,$dict,$fold)
! #
! # This library is no longer being maintained, and is included for backward
! # compatability with Perl 4 programs which may require it. This library
! # contains Perl 4 code and should not be used as an example of good Perl 5
! # 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 -c old/pwd.pl new/pwd.pl
*** old/pwd.pl Fri Jul 23 11​:28​:55 1999
--- new/pwd.pl Fri Jul 23 11​:38​:23 1999
***************
*** 1,5 ****
--- 1,13 ----
  ;# pwd.pl - keeps track of current working directory in PWD environment var
  ;#
+ #
+ # This library is no longer being maintained, and is included for backward
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Cwd
+ #
  ;# $RCSfile​: pwd.pl,v $$Revision​: 4.1 $$Date​: 92/08/07 18​:24​:11 $
  ;#
  ;# $Log​: pwd.pl,v $
diff -c old/termcap.pl new/termcap.pl
*** old/termcap.pl Fri Jul 23 11​:28​:55 1999
--- new/termcap.pl Fri Jul 23 11​:38​:37 1999
***************
*** 1,4 ****
--- 1,12 ----
  ;# $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
+ # compatability with Perl 4 programs which may require it. This library
+ # contains Perl 4 code and should not be used as an example of good Perl 5
+ # programming techniques.
+ #
+ # Suggested alternative​: Term​::Cap
+ #
  ;#
  ;# Usage​:
  ;# require 'ioctl.pl';