Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Documentation patches to lib/*.pl #222

Closed
p5pRT opened this issue Jul 23, 1999 · 4 comments
Closed

Documentation patches to lib/*.pl #222

p5pRT opened this issue Jul 23, 1999 · 4 comments

Comments

@p5pRT
Copy link

@p5pRT p5pRT commented Jul 23, 1999

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

Searchable as RT1029$

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Jul 23, 1999

From cpierce1@ford.com

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
Copy link
Author

@p5pRT p5pRT commented Jul 23, 1999

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
Copy link
Author

@p5pRT p5pRT commented Jul 26, 1999

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
Copy link
Author

@p5pRT p5pRT commented Jul 26, 1999

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';

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Linked pull requests

Successfully merging a pull request may close this issue.

None yet
1 participant