diff options
| -rw-r--r-- | lib/abbrev.pl | 10 | ||||
| -rw-r--r-- | lib/bigfloat.pl | 9 | ||||
| -rw-r--r-- | lib/bigint.pl | 10 | ||||
| -rw-r--r-- | lib/bigrat.pl | 8 | ||||
| -rw-r--r-- | lib/cacheout.pl | 9 | ||||
| -rw-r--r-- | lib/chat2.pl | 9 | ||||
| -rw-r--r-- | lib/complete.pl | 9 | ||||
| -rw-r--r-- | lib/ctime.pl | 8 | ||||
| -rw-r--r-- | lib/dotsh.pl | 7 | ||||
| -rw-r--r-- | lib/exceptions.pl | 7 | ||||
| -rw-r--r-- | lib/fastcwd.pl | 8 | ||||
| -rw-r--r-- | lib/flush.pl | 9 | ||||
| -rw-r--r-- | lib/ftp.pl | 9 | ||||
| -rw-r--r-- | lib/getcwd.pl | 9 | ||||
| -rw-r--r-- | lib/getopt.pl | 10 | ||||
| -rw-r--r-- | lib/getopts.pl | 10 | ||||
| -rw-r--r-- | lib/hostname.pl | 10 | ||||
| -rw-r--r-- | lib/look.pl | 8 | ||||
| -rw-r--r-- | lib/pwd.pl | 9 | ||||
| -rw-r--r-- | lib/termcap.pl | 9 |
20 files changed, 171 insertions, 6 deletions
diff --git a/lib/abbrev.pl b/lib/abbrev.pl index 62975e66f3..c505a6f28b 100644 --- a/lib/abbrev.pl +++ b/lib/abbrev.pl @@ -4,6 +4,16 @@ ;# ... ;# $long = $foo{$short}; +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: Text::Abbrev +# + package abbrev; sub main'abbrev { diff --git a/lib/bigfloat.pl b/lib/bigfloat.pl index 032dfe6fb5..6af5f17303 100644 --- a/lib/bigfloat.pl +++ b/lib/bigfloat.pl @@ -1,5 +1,14 @@ package bigfloat; require "bigint.pl"; +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: Math::BigFloat +# # Arbitrary length float math package # # by Mark Biggar diff --git a/lib/bigint.pl b/lib/bigint.pl index adeb17f28a..4044f7f634 100644 --- a/lib/bigint.pl +++ b/lib/bigint.pl @@ -1,5 +1,13 @@ package bigint; - +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: Math::BigInt +# # arbitrary size integer math package # # by Mark Biggar diff --git a/lib/bigrat.pl b/lib/bigrat.pl index fb436ce570..2d3738f805 100644 --- a/lib/bigrat.pl +++ b/lib/bigrat.pl @@ -1,6 +1,12 @@ package bigrat; require "bigint.pl"; - +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# # Arbitrary size rational math package # # by Mark Biggar diff --git a/lib/cacheout.pl b/lib/cacheout.pl index 64378cffc6..d2669a1cfa 100644 --- a/lib/cacheout.pl +++ b/lib/cacheout.pl @@ -1,3 +1,12 @@ +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: FileCache + # Open in their package. sub cacheout'open { diff --git a/lib/chat2.pl b/lib/chat2.pl index 094d3dff21..504fa7efd7 100644 --- a/lib/chat2.pl +++ b/lib/chat2.pl @@ -1,4 +1,13 @@ # chat.pl: chat with a server +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: Socket +# # Based on: V2.01.alpha.7 91/06/16 # Randal L. Schwartz (was <merlyn@stonehenge.com>) # multihome additions by A.Macpherson@bnr.co.uk diff --git a/lib/complete.pl b/lib/complete.pl index 539f2f7798..925ce86e5d 100644 --- a/lib/complete.pl +++ b/lib/complete.pl @@ -1,4 +1,13 @@ ;# +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: Term::Complete +# ;# @(#)complete.pl,v1.1 (me@anywhere.EBay.Sun.COM) 09/23/91 ;# ;# Author: Wayne Thompson diff --git a/lib/ctime.pl b/lib/ctime.pl index 14e122adda..6a3f295968 100644 --- a/lib/ctime.pl +++ b/lib/ctime.pl @@ -1,4 +1,12 @@ ;# ctime.pl is a simple Perl emulation for the well known ctime(3C) function. +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: the POSIX ctime function ;# ;# Waldemar Kebsch, Federal Republic of Germany, November 1988 ;# kebsch.pad@nixpbe.UUCP diff --git a/lib/dotsh.pl b/lib/dotsh.pl index 4982b17d8c..5be2413ae6 100644 --- a/lib/dotsh.pl +++ b/lib/dotsh.pl @@ -1,6 +1,13 @@ # # @(#)dotsh.pl 03/19/94 # +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# # Author: Charles Collins # # Description: diff --git a/lib/exceptions.pl b/lib/exceptions.pl index 02c4498d32..ed1f927d27 100644 --- a/lib/exceptions.pl +++ b/lib/exceptions.pl @@ -1,5 +1,12 @@ # exceptions.pl # tchrist@convex.com +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# # # Here's a little code I use for exception handling. It's really just # glorfied eval/die. The way to use use it is when you might otherwise diff --git a/lib/fastcwd.pl b/lib/fastcwd.pl index 6b452e8d78..ecd87c8a03 100644 --- a/lib/fastcwd.pl +++ b/lib/fastcwd.pl @@ -1,5 +1,13 @@ # By John Bazik # +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: Cwd +# # Usage: $cwd = &fastcwd; # # This is a faster version of getcwd. It's also more dangerous because diff --git a/lib/flush.pl b/lib/flush.pl index 55002b9919..8aa6d5580c 100644 --- a/lib/flush.pl +++ b/lib/flush.pl @@ -1,3 +1,12 @@ +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: IO::Handle +# ;# Usage: &flush(FILEHANDLE) ;# flushes the named filehandle diff --git a/lib/ftp.pl b/lib/ftp.pl index fd78162a40..aa6a489665 100644 --- a/lib/ftp.pl +++ b/lib/ftp.pl @@ -1,4 +1,13 @@ #-*-perl-*- +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: Net::FTP +# # This is a wrapper to the chat2.pl routines that make life easier # to do ftp type work. # Mostly by Lee McLoughlin <lmjm@doc.ic.ac.uk> diff --git a/lib/getcwd.pl b/lib/getcwd.pl index 9dd694500c..eca6ba1127 100644 --- a/lib/getcwd.pl +++ b/lib/getcwd.pl @@ -1,5 +1,14 @@ # By Brandon S. Allbery # +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: Cwd +# +# # Usage: $cwd = &getcwd; sub getcwd diff --git a/lib/getopt.pl b/lib/getopt.pl index f871e41850..77d8d899a4 100644 --- a/lib/getopt.pl +++ b/lib/getopt.pl @@ -1,5 +1,13 @@ ;# $RCSfile: getopt.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:23:58 $ - +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternatives: Getopt::Long or Getopt::Std +# ;# Process single-character switches with switch clustering. Pass one argument ;# which is a string containing all switches that take an argument. For each ;# switch found, sets $opt_x (where x is the switch name) to the value of the diff --git a/lib/getopts.pl b/lib/getopts.pl index 852aae89b1..25958199a6 100644 --- a/lib/getopts.pl +++ b/lib/getopts.pl @@ -1,5 +1,13 @@ ;# getopts.pl - a better getopt.pl - +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternatives: Getopt::Long or Getopt::Std +# ;# Usage: ;# do Getopts('a:bc'); # -a takes arg. -b & -c not. Sets opt_* as a ;# # side effect. diff --git a/lib/hostname.pl b/lib/hostname.pl index 5394c6ec69..63eea8fee4 100644 --- a/lib/hostname.pl +++ b/lib/hostname.pl @@ -1,5 +1,13 @@ # From: asherman@fmrco.com (Aaron Sherman) - +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: Sys::Hostname +# sub hostname { local(*P,@tmp,$hostname,$_); diff --git a/lib/look.pl b/lib/look.pl index e8dc8aacb6..ccc9b6162a 100644 --- a/lib/look.pl +++ b/lib/look.pl @@ -1,5 +1,11 @@ ;# Usage: &look(*FILEHANDLE,$key,$dict,$fold) - +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# ;# Sets file position in FILEHANDLE to be first line greater than or equal ;# (stringwise) to $key. Pass flags for dictionary order and case folding. diff --git a/lib/pwd.pl b/lib/pwd.pl index beb591679e..47539aa4c6 100644 --- a/lib/pwd.pl +++ b/lib/pwd.pl @@ -1,5 +1,14 @@ ;# pwd.pl - keeps track of current working directory in PWD environment var ;# +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: Cwd +# ;# $RCSfile: pwd.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:11 $ ;# ;# $Log: pwd.pl,v $ diff --git a/lib/termcap.pl b/lib/termcap.pl index 37313432fd..06da956666 100644 --- a/lib/termcap.pl +++ b/lib/termcap.pl @@ -1,4 +1,13 @@ ;# $RCSfile: termcap.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:16 $ +# +# This library is no longer being maintained, and is included for backward +# compatibility with Perl 4 programs which may require it. +# +# In particular, this should not be used as an example of modern Perl +# programming techniques. +# +# Suggested alternative: Term::Cap +# ;# ;# Usage: ;# require 'ioctl.pl'; |