From: Gurusamy Sarathy Date: Mon, 26 Jul 1999 05:12:24 +0000 (+0000) Subject: add disclaimer about perl 4 libraries (modified version of X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a6d7165678aed89f828954d0fcb2e714844ad7d6;p=p5sagit%2Fp5-mst-13.2.git add disclaimer about perl 4 libraries (modified version of patch suggested by Clinton Pierce ) p4raw-id: //depot/perl@3759 --- diff --git a/lib/abbrev.pl b/lib/abbrev.pl index 62975e6..c505a6f 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 032dfe6..6af5f17 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 adeb17f..4044f7f 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 fb436ce..2d3738f 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 64378cf..d2669a1 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 094d3df..504fa7e 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 ) # multihome additions by A.Macpherson@bnr.co.uk diff --git a/lib/complete.pl b/lib/complete.pl index 539f2f7..925ce86 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 14e122a..6a3f295 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 4982b17..5be2413 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 02c4498..ed1f927 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 6b452e8..ecd87c8 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 55002b9..8aa6d55 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 fd78162..aa6a489 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 diff --git a/lib/getcwd.pl b/lib/getcwd.pl index 9dd6945..eca6ba1 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 f871e41..77d8d89 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 852aae8..2595819 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 5394c6e..63eea8f 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 e8dc8aa..ccc9b61 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 beb5916..47539aa 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 3731343..06da956 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';