summaryrefslogtreecommitdiff
path: root/contrib/perl5/lib
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/lib')
-rw-r--r--contrib/perl5/lib/CGI.pm2
-rw-r--r--contrib/perl5/lib/CGI/Apache.pm2
-rw-r--r--contrib/perl5/lib/CPAN.pm4
-rw-r--r--contrib/perl5/lib/CPAN/FirstTime.pm2
-rw-r--r--contrib/perl5/lib/ExtUtils/Embed.pm4
-rw-r--r--contrib/perl5/lib/ExtUtils/Install.pm4
-rw-r--r--contrib/perl5/lib/ExtUtils/Liblist.pm2
-rw-r--r--contrib/perl5/lib/ExtUtils/MM_Unix.pm4
-rw-r--r--contrib/perl5/lib/ExtUtils/MakeMaker.pm4
-rw-r--r--contrib/perl5/lib/ExtUtils/Manifest.pm2
-rw-r--r--contrib/perl5/lib/ExtUtils/Mkbootstrap.pm4
-rw-r--r--contrib/perl5/lib/ExtUtils/Mksymlists.pm2
-rw-r--r--contrib/perl5/lib/ExtUtils/testlib.pm4
-rw-r--r--contrib/perl5/lib/ExtUtils/typemap2
-rw-r--r--contrib/perl5/lib/File/CheckTree.pm2
-rw-r--r--contrib/perl5/lib/FindBin.pm4
-rw-r--r--contrib/perl5/lib/Getopt/Long.pm6
-rw-r--r--contrib/perl5/lib/Getopt/Std.pm2
-rw-r--r--contrib/perl5/lib/IPC/Open3.pm2
-rw-r--r--contrib/perl5/lib/Math/Complex.pm2
-rw-r--r--contrib/perl5/lib/Text/Soundex.pm7
-rw-r--r--contrib/perl5/lib/ctime.pl2
-rw-r--r--contrib/perl5/lib/ftp.pl5
-rw-r--r--contrib/perl5/lib/getopt.pl2
-rw-r--r--contrib/perl5/lib/importenv.pl2
-rw-r--r--contrib/perl5/lib/newgetopt.pl2
-rw-r--r--contrib/perl5/lib/perl5db.pl5
-rw-r--r--contrib/perl5/lib/pwd.pl7
-rw-r--r--contrib/perl5/lib/stat.pl2
-rw-r--r--contrib/perl5/lib/syslog.pl5
-rw-r--r--contrib/perl5/lib/termcap.pl2
-rw-r--r--contrib/perl5/lib/validate.pl2
32 files changed, 59 insertions, 44 deletions
diff --git a/contrib/perl5/lib/CGI.pm b/contrib/perl5/lib/CGI.pm
index 22d91a46c7cc0..5e8432dd10646 100644
--- a/contrib/perl5/lib/CGI.pm
+++ b/contrib/perl5/lib/CGI.pm
@@ -18,7 +18,7 @@ require 5.004;
# http://www.genome.wi.mit.edu/ftp/pub/software/WWW/cgi_docs.html
# ftp://ftp-genome.wi.mit.edu/pub/software/WWW/
-$CGI::revision = '$Id: CGI.pm,v 1.32 1998/05/28 21:55:43 lstein Exp lstein $';
+$CGI::revision = '$Id: CGI.pm,v 1.1.1.1 1998/09/09 06:59:53 markm Exp $';
$CGI::VERSION='2.42';
# HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES.
diff --git a/contrib/perl5/lib/CGI/Apache.pm b/contrib/perl5/lib/CGI/Apache.pm
index eed3e55c51c87..bd55a7f63203a 100644
--- a/contrib/perl5/lib/CGI/Apache.pm
+++ b/contrib/perl5/lib/CGI/Apache.pm
@@ -4,7 +4,7 @@ use vars qw(@ISA $VERSION);
require CGI;
@ISA = qw(CGI);
-$VERSION = (qw$Revision: 1.1 $)[1];
+$VERSION = (qw$Revision: 1.1.1.1 $)[1];
$CGI::DefaultClass = 'CGI::Apache';
$CGI::Apache::AutoloadClass = 'CGI';
diff --git a/contrib/perl5/lib/CPAN.pm b/contrib/perl5/lib/CPAN.pm
index b510ea2082dae..4ef4db4580b3c 100644
--- a/contrib/perl5/lib/CPAN.pm
+++ b/contrib/perl5/lib/CPAN.pm
@@ -7,11 +7,11 @@ use vars qw{$Try_autoload $Revision
$VERSION = '1.3901';
-# $Id: CPAN.pm,v 1.226 1998/07/08 22:29:29 k Exp k $
+# $Id: CPAN.pm,v 1.1.1.1 1998/09/09 06:59:53 markm Exp $
# only used during development:
$Revision = "";
-# $Revision = "[".substr(q$Revision: 1.226 $, 10)."]";
+# $Revision = "[".substr(q$Revision: 1.1.1.1 $, 10)."]";
use Carp ();
use Config ();
diff --git a/contrib/perl5/lib/CPAN/FirstTime.pm b/contrib/perl5/lib/CPAN/FirstTime.pm
index aa7a55d195bc4..2e93f6338fbdf 100644
--- a/contrib/perl5/lib/CPAN/FirstTime.pm
+++ b/contrib/perl5/lib/CPAN/FirstTime.pm
@@ -16,7 +16,7 @@ use FileHandle ();
use File::Basename ();
use File::Path ();
use vars qw($VERSION);
-$VERSION = substr q$Revision: 1.29 $, 10;
+$VERSION = substr q$Revision: 1.1.1.1 $, 10;
=head1 NAME
diff --git a/contrib/perl5/lib/ExtUtils/Embed.pm b/contrib/perl5/lib/ExtUtils/Embed.pm
index e41ca40e66d6e..aea7bbc42bd63 100644
--- a/contrib/perl5/lib/ExtUtils/Embed.pm
+++ b/contrib/perl5/lib/ExtUtils/Embed.pm
@@ -1,4 +1,4 @@
-# $Id: Embed.pm,v 1.2501 $
+# $Id: Embed.pm,v 1.1.1.1 1998/09/09 06:59:54 markm Exp $
require 5.002;
package ExtUtils::Embed;
@@ -17,7 +17,7 @@ use vars qw(@ISA @EXPORT $VERSION
);
use strict;
-$VERSION = sprintf("%d.%02d", q$Revision: 1.2505 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.1.1.1 $ =~ /(\d+)\.(\d+)/);
@ISA = qw(Exporter);
@EXPORT = qw(&xsinit &ldopts
diff --git a/contrib/perl5/lib/ExtUtils/Install.pm b/contrib/perl5/lib/ExtUtils/Install.pm
index 6a5c1847accc5..d0efa9dd460ca 100644
--- a/contrib/perl5/lib/ExtUtils/Install.pm
+++ b/contrib/perl5/lib/ExtUtils/Install.pm
@@ -1,7 +1,7 @@
package ExtUtils::Install;
-$VERSION = substr q$Revision: 1.28 $, 10;
-# $Date: 1998/01/25 07:08:24 $
+$VERSION = substr q$Revision: 1.1.1.1 $, 10;
+# $Date: 1998/09/09 06:59:54 $
use Exporter;
use Carp ();
diff --git a/contrib/perl5/lib/ExtUtils/Liblist.pm b/contrib/perl5/lib/ExtUtils/Liblist.pm
index c32d452b706d2..f222491c29523 100644
--- a/contrib/perl5/lib/ExtUtils/Liblist.pm
+++ b/contrib/perl5/lib/ExtUtils/Liblist.pm
@@ -2,7 +2,7 @@ package ExtUtils::Liblist;
use vars qw($VERSION);
# Broken out of MakeMaker from version 4.11
-$VERSION = substr q$Revision: 1.1.1.1 $, 10;
+$VERSION = substr q$Revision: 1.2 $, 10;
use Config;
use Cwd 'cwd';
diff --git a/contrib/perl5/lib/ExtUtils/MM_Unix.pm b/contrib/perl5/lib/ExtUtils/MM_Unix.pm
index 421bd5464f597..a9d3c7d36f4b8 100644
--- a/contrib/perl5/lib/ExtUtils/MM_Unix.pm
+++ b/contrib/perl5/lib/ExtUtils/MM_Unix.pm
@@ -8,8 +8,8 @@ use strict;
use vars qw($VERSION $Is_Mac $Is_OS2 $Is_VMS $Is_Win32 $Is_Dos $Is_PERL_OBJECT
$Verbose %pm %static $Xsubpp_Version);
-$VERSION = substr q$Revision: 1.2 $, 10;
-# $Id: MM_Unix.pm,v 1.2 1998/09/09 13:10:46 markm Exp $
+$VERSION = substr q$Revision: 1.3 $, 10;
+# $Id: MM_Unix.pm,v 1.3 1998/11/15 15:26:12 ache Exp $
Exporter::import('ExtUtils::MakeMaker',
qw( $Verbose &neatvalue));
diff --git a/contrib/perl5/lib/ExtUtils/MakeMaker.pm b/contrib/perl5/lib/ExtUtils/MakeMaker.pm
index 5b7bb0b6da04b..393c457e77589 100644
--- a/contrib/perl5/lib/ExtUtils/MakeMaker.pm
+++ b/contrib/perl5/lib/ExtUtils/MakeMaker.pm
@@ -5,7 +5,7 @@ package ExtUtils::MakeMaker;
$Version = $VERSION = "5.4301";
$Version_OK = "5.17"; # Makefiles older than $Version_OK will die
# (Will be checked from MakeMaker version 4.13 onwards)
-($Revision = substr(q$Revision: 1.222 $, 10)) =~ s/\s+$//;
+($Revision = substr(q$Revision: 1.1.1.1 $, 10)) =~ s/\s+$//;
@@ -1622,7 +1622,7 @@ MakeMaker object. The following lines will be parsed o.k.:
$VERSION = '1.00';
*VERSION = \'1.01';
- ( $VERSION ) = '$Revision: 1.222 $ ' =~ /\$Revision:\s+([^\s]+)/;
+ ( $VERSION ) = '$Revision: 1.1.1.1 $ ' =~ /\$Revision:\s+([^\s]+)/;
$FOO::VERSION = '1.10';
*FOO::VERSION = \'1.11';
diff --git a/contrib/perl5/lib/ExtUtils/Manifest.pm b/contrib/perl5/lib/ExtUtils/Manifest.pm
index 55570892f851a..b93e94e7b401d 100644
--- a/contrib/perl5/lib/ExtUtils/Manifest.pm
+++ b/contrib/perl5/lib/ExtUtils/Manifest.pm
@@ -10,7 +10,7 @@ use strict;
use vars qw($VERSION @ISA @EXPORT_OK
$Is_VMS $Debug $Verbose $Quiet $MANIFEST $found);
-$VERSION = substr(q$Revision: 1.33 $, 10);
+$VERSION = substr(q$Revision: 1.1.1.1 $, 10);
@ISA=('Exporter');
@EXPORT_OK = ('mkmanifest', 'manicheck', 'fullcheck', 'filecheck',
'skipcheck', 'maniread', 'manicopy');
diff --git a/contrib/perl5/lib/ExtUtils/Mkbootstrap.pm b/contrib/perl5/lib/ExtUtils/Mkbootstrap.pm
index 35d5236072f4b..c280e80baaa79 100644
--- a/contrib/perl5/lib/ExtUtils/Mkbootstrap.pm
+++ b/contrib/perl5/lib/ExtUtils/Mkbootstrap.pm
@@ -1,7 +1,7 @@
package ExtUtils::Mkbootstrap;
-$VERSION = substr q$Revision: 1.13 $, 10;
-# $Date: 1996/09/03 17:04:43 $
+$VERSION = substr q$Revision: 1.1.1.1 $, 10;
+# $Date: 1998/09/09 06:59:54 $
use Config;
use Exporter;
diff --git a/contrib/perl5/lib/ExtUtils/Mksymlists.pm b/contrib/perl5/lib/ExtUtils/Mksymlists.pm
index 0b92ca09b7eaf..54e44d17cf412 100644
--- a/contrib/perl5/lib/ExtUtils/Mksymlists.pm
+++ b/contrib/perl5/lib/ExtUtils/Mksymlists.pm
@@ -7,7 +7,7 @@ use Exporter;
use vars qw( @ISA @EXPORT $VERSION );
@ISA = 'Exporter';
@EXPORT = '&Mksymlists';
-$VERSION = substr q$Revision: 1.17 $, 10;
+$VERSION = substr q$Revision: 1.1.1.1 $, 10;
sub Mksymlists {
my(%spec) = @_;
diff --git a/contrib/perl5/lib/ExtUtils/testlib.pm b/contrib/perl5/lib/ExtUtils/testlib.pm
index d80f2a296b4d2..22a0ebd4b3bdd 100644
--- a/contrib/perl5/lib/ExtUtils/testlib.pm
+++ b/contrib/perl5/lib/ExtUtils/testlib.pm
@@ -1,6 +1,6 @@
package ExtUtils::testlib;
-$VERSION = substr q$Revision: 1.11 $, 10;
-# $Id: testlib.pm,v 1.11 1996/05/31 08:27:07 k Exp $
+$VERSION = substr q$Revision: 1.1.1.1 $, 10;
+# $Id: testlib.pm,v 1.1.1.1 1998/09/09 06:59:55 markm Exp $
use lib qw(blib/arch blib/lib);
1;
diff --git a/contrib/perl5/lib/ExtUtils/typemap b/contrib/perl5/lib/ExtUtils/typemap
index 28fd99c00b92e..22b201c31a8e9 100644
--- a/contrib/perl5/lib/ExtUtils/typemap
+++ b/contrib/perl5/lib/ExtUtils/typemap
@@ -1,4 +1,4 @@
-# $Header$
+# $Header: /home/ncvs/src/contrib/perl5/lib/ExtUtils/typemap,v 1.1.1.1 1998/09/09 06:59:55 markm Exp $
# basic C types
int T_IV
unsigned T_IV
diff --git a/contrib/perl5/lib/File/CheckTree.pm b/contrib/perl5/lib/File/CheckTree.pm
index dca7f6aff31a8..7cff84780886b 100644
--- a/contrib/perl5/lib/File/CheckTree.pm
+++ b/contrib/perl5/lib/File/CheckTree.pm
@@ -44,7 +44,7 @@ The routine returns the number of warnings issued.
@ISA = qw(Exporter);
@EXPORT = qw(validate);
-# $RCSfile: validate.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:19 $
+# $RCSfile: CheckTree.pm,v $$Revision: 1.1.1.1 $$Date: 1998/09/09 06:59:55 $
# The validate routine takes a single multiline string consisting of
# lines containing a filename plus a file test to try on it. (The
diff --git a/contrib/perl5/lib/FindBin.pm b/contrib/perl5/lib/FindBin.pm
index d6bd7b777e20d..a92d7eaa7ecde 100644
--- a/contrib/perl5/lib/FindBin.pm
+++ b/contrib/perl5/lib/FindBin.pm
@@ -66,7 +66,7 @@ under the same terms as Perl itself.
=head1 REVISION
-$Revision: 1.4 $
+$Revision: 1.1.1.1 $
=cut
@@ -82,7 +82,7 @@ use File::Basename;
%EXPORT_TAGS = (ALL => [qw($Bin $Script $RealBin $RealScript $Dir $RealDir)]);
@ISA = qw(Exporter);
-$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
+$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.1.1.1 $ =~ /(\d+)\.(\d+)/);
sub is_abs_path
{
diff --git a/contrib/perl5/lib/Getopt/Long.pm b/contrib/perl5/lib/Getopt/Long.pm
index 1966ef3c9117f..d17885d1b4d62 100644
--- a/contrib/perl5/lib/Getopt/Long.pm
+++ b/contrib/perl5/lib/Getopt/Long.pm
@@ -2,7 +2,7 @@
package Getopt::Long;
-# RCS Status : $Id: GetoptLong.pl,v 2.18 1998-06-14 15:02:19+02 jv Exp $
+# RCS Status : $Id: Long.pm,v 1.1.1.1 1998/09/09 06:59:55 markm Exp $
# Author : Johan Vromans
# Created On : Tue Sep 11 15:00:12 1990
# Last Modified By: Johan Vromans
@@ -108,7 +108,7 @@ __END__
################ AutoLoading subroutines ################
-# RCS Status : $Id: GetoptLongAl.pl,v 2.20 1998-06-14 15:02:19+02 jv Exp $
+# RCS Status : $Id: Long.pm,v 1.1.1.1 1998/09/09 06:59:55 markm Exp $
# Author : Johan Vromans
# Created On : Fri Mar 27 11:50:30 1998
# Last Modified By: Johan Vromans
@@ -137,7 +137,7 @@ sub GetOptions {
print STDERR ("GetOpt::Long $Getopt::Long::VERSION ",
"called from package \"$pkg\".",
"\n ",
- 'GetOptionsAl $Revision: 2.20 $ ',
+ 'GetOptionsAl $Revision: 1.1.1.1 $ ',
"\n ",
"ARGV: (@ARGV)",
"\n ",
diff --git a/contrib/perl5/lib/Getopt/Std.pm b/contrib/perl5/lib/Getopt/Std.pm
index c2cd1234f4cf7..34c15f3540931 100644
--- a/contrib/perl5/lib/Getopt/Std.pm
+++ b/contrib/perl5/lib/Getopt/Std.pm
@@ -43,7 +43,7 @@ the argument or 1 if no argument is specified.
@ISA = qw(Exporter);
@EXPORT = qw(getopt getopts);
-# $RCSfile: getopt.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:23:58 $
+# $RCSfile: Std.pm,v $$Revision: 1.1.1.1 $$Date: 1998/09/09 06:59:55 $
# Process single-character switches with switch clustering. Pass one argument
# which is a string containing all switches that take an argument. For each
diff --git a/contrib/perl5/lib/IPC/Open3.pm b/contrib/perl5/lib/IPC/Open3.pm
index f1415e3ad6740..bf77ce96ef80f 100644
--- a/contrib/perl5/lib/IPC/Open3.pm
+++ b/contrib/perl5/lib/IPC/Open3.pm
@@ -68,7 +68,7 @@ C<cat -v> and continually read and write a line from it.
# fixed for 5.001 by Ulrich Kunitz <kunitz@mai-koeln.com>
# ported to Win32 by Ron Schmidt, Merrill Lynch almost ended my career
#
-# $Id: open3.pl,v 1.1 1993/11/23 06:26:15 marc Exp $
+# $Id: Open3.pm,v 1.1.1.1 1998/09/09 06:59:55 markm Exp $
#
# usage: $pid = open3('wtr', 'rdr', 'err' 'some cmd and args', 'optarg', ...);
#
diff --git a/contrib/perl5/lib/Math/Complex.pm b/contrib/perl5/lib/Math/Complex.pm
index e711c1483d9e8..46723c0de58e7 100644
--- a/contrib/perl5/lib/Math/Complex.pm
+++ b/contrib/perl5/lib/Math/Complex.pm
@@ -14,7 +14,7 @@ use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS);
my ( $i, $ip2, %logn );
-$VERSION = sprintf("%s", q$Id: Complex.pm,v 1.25 1998/02/05 16:07:37 jhi Exp $ =~ /(\d+\.\d+)/);
+$VERSION = sprintf("%s", q$Id: Complex.pm,v 1.1.1.1 1998/09/09 06:59:55 markm Exp $ =~ /(\d+\.\d+)/);
@ISA = qw(Exporter);
diff --git a/contrib/perl5/lib/Text/Soundex.pm b/contrib/perl5/lib/Text/Soundex.pm
index ddc758c94eb7e..6135e46945645 100644
--- a/contrib/perl5/lib/Text/Soundex.pm
+++ b/contrib/perl5/lib/Text/Soundex.pm
@@ -5,7 +5,7 @@ require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(&soundex $soundex_nocode);
-# $Id: soundex.pl,v 1.2 1994/03/24 00:30:27 mike Exp $
+# $Id: Soundex.pm,v 1.1.1.1 1998/09/09 06:59:56 markm Exp $
#
# Implementation of soundex algorithm as described by Knuth in volume
# 3 of The Art of Computer Programming, with ideas stolen from Ian
@@ -22,7 +22,10 @@ require Exporter;
# Lloyd, Ladd -> L300
# Lukasiewicz, Lissajous -> L222
#
-# $Log: soundex.pl,v $
+# $Log: Soundex.pm,v $
+# Revision 1.1.1.1 1998/09/09 06:59:56 markm
+# Initial import of Perl5. The king is dead; long live the king!
+#
# Revision 1.2 1994/03/24 00:30:27 mike
# Subtle bug (any excuse :-) spotted by Rich Pinder <rpinder@hsc.usc.edu>
# in the way I handles leasing characters which were different but had
diff --git a/contrib/perl5/lib/ctime.pl b/contrib/perl5/lib/ctime.pl
index 14e122adda0bd..57f87042e52db 100644
--- a/contrib/perl5/lib/ctime.pl
+++ b/contrib/perl5/lib/ctime.pl
@@ -3,7 +3,7 @@
;# Waldemar Kebsch, Federal Republic of Germany, November 1988
;# kebsch.pad@nixpbe.UUCP
;# Modified March 1990, Feb 1991 to properly handle timezones
-;# $RCSfile: ctime.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:23:47 $
+;# $RCSfile: ctime.pl,v $$Revision: 1.1.1.1 $$Date: 1998/09/09 06:59:53 $
;# Marion Hakanson (hakanson@cse.ogi.edu)
;# Oregon Graduate Institute of Science and Technology
;#
diff --git a/contrib/perl5/lib/ftp.pl b/contrib/perl5/lib/ftp.pl
index fd78162a404f3..4c33bca8a2f6e 100644
--- a/contrib/perl5/lib/ftp.pl
+++ b/contrib/perl5/lib/ftp.pl
@@ -5,8 +5,11 @@
# based on original version by Alan R. Martello <al@ee.pitt.edu>
# And by A.Macpherson@bnr.co.uk for multi-homed hosts
#
-# $Header: /a/swan/home/swan/staff/csg/lmjm/src/perl/mirror/RCS/ftp.pl,v 1.17 1993/04/21 10:06:54 lmjm Exp lmjm $
+# $Header: /home/ncvs/src/contrib/perl5/lib/ftp.pl,v 1.1.1.1 1998/09/09 06:59:53 markm Exp $
# $Log: ftp.pl,v $
+# Revision 1.1.1.1 1998/09/09 06:59:53 markm
+# Initial import of Perl5. The king is dead; long live the king!
+#
# Revision 1.17 1993/04/21 10:06:54 lmjm
# Send all status reports to STDERR not to STDOUT (to allow use by ftpcat).
# Allow target file to be '-' meaning STDOUT
diff --git a/contrib/perl5/lib/getopt.pl b/contrib/perl5/lib/getopt.pl
index f871e41850118..1035c022eee90 100644
--- a/contrib/perl5/lib/getopt.pl
+++ b/contrib/perl5/lib/getopt.pl
@@ -1,4 +1,4 @@
-;# $RCSfile: getopt.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:23:58 $
+;# $RCSfile: getopt.pl,v $$Revision: 1.1.1.1 $$Date: 1998/09/09 06:59:54 $
;# Process single-character switches with switch clustering. Pass one argument
;# which is a string containing all switches that take an argument. For each
diff --git a/contrib/perl5/lib/importenv.pl b/contrib/perl5/lib/importenv.pl
index c28ffd054d4a4..e3c275f907510 100644
--- a/contrib/perl5/lib/importenv.pl
+++ b/contrib/perl5/lib/importenv.pl
@@ -1,4 +1,4 @@
-;# $RCSfile: importenv.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:02 $
+;# $RCSfile: importenv.pl,v $$Revision: 1.1.1.1 $$Date: 1998/09/09 06:59:54 $
;# This file, when interpreted, pulls the environment into normal variables.
;# Usage:
diff --git a/contrib/perl5/lib/newgetopt.pl b/contrib/perl5/lib/newgetopt.pl
index 0b7eed8bfe91e..f7235b99b138f 100644
--- a/contrib/perl5/lib/newgetopt.pl
+++ b/contrib/perl5/lib/newgetopt.pl
@@ -1,6 +1,6 @@
# newgetopt.pl -- new options parsing.
# Now just a wrapper around the Getopt::Long module.
-# $Id: newgetopt.pl,v 1.17 1996-10-02 11:17:16+02 jv Exp $
+# $Id: newgetopt.pl,v 1.1.1.1 1998/09/09 06:59:54 markm Exp $
{ package newgetopt;
diff --git a/contrib/perl5/lib/perl5db.pl b/contrib/perl5/lib/perl5db.pl
index 099a49b49f092..1128b28529c7f 100644
--- a/contrib/perl5/lib/perl5db.pl
+++ b/contrib/perl5/lib/perl5db.pl
@@ -48,7 +48,10 @@ $header = "perl5db.pl version $VERSION";
# (for subroutines defined outside of the package DB). In fact the same is
# true if $deep is not defined.
#
-# $Log: perldb.pl,v $
+# $Log: perl5db.pl,v $
+# Revision 1.1.1.1 1998/09/09 06:59:54 markm
+# Initial import of Perl5. The king is dead; long live the king!
+#
#
# At start reads $rcfile that may set important options. This file
diff --git a/contrib/perl5/lib/pwd.pl b/contrib/perl5/lib/pwd.pl
index beb591679e261..e8e9346e2709c 100644
--- a/contrib/perl5/lib/pwd.pl
+++ b/contrib/perl5/lib/pwd.pl
@@ -1,8 +1,11 @@
;# pwd.pl - keeps track of current working directory in PWD environment var
;#
-;# $RCSfile: pwd.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:11 $
+;# $RCSfile: pwd.pl,v $$Revision: 1.1.1.1 $$Date: 1998/09/09 06:59:54 $
+;#
+;# $Log: pwd.pl,v $
+;# Revision 1.1.1.1 1998/09/09 06:59:54 markm
+;# Initial import of Perl5. The king is dead; long live the king!
;#
-;# $Log: pwd.pl,v $
;#
;# Usage:
;# require "pwd.pl";
diff --git a/contrib/perl5/lib/stat.pl b/contrib/perl5/lib/stat.pl
index f7c240a4b3e77..809f63f58b835 100644
--- a/contrib/perl5/lib/stat.pl
+++ b/contrib/perl5/lib/stat.pl
@@ -1,4 +1,4 @@
-;# $RCSfile: stat.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:13 $
+;# $RCSfile: stat.pl,v $$Revision: 1.1.1.1 $$Date: 1998/09/09 06:59:54 $
;# Usage:
;# require 'stat.pl';
diff --git a/contrib/perl5/lib/syslog.pl b/contrib/perl5/lib/syslog.pl
index 9e03399e4df60..8f0f45f969543 100644
--- a/contrib/perl5/lib/syslog.pl
+++ b/contrib/perl5/lib/syslog.pl
@@ -1,7 +1,10 @@
#
# syslog.pl
#
-# $Log: syslog.pl,v $
+# $Log: syslog.pl,v $
+# Revision 1.1.1.1 1998/09/09 06:59:54 markm
+# Initial import of Perl5. The king is dead; long live the king!
+#
#
# tom christiansen <tchrist@convex.com>
# modified to use sockets by Larry Wall <lwall@jpl-devvax.jpl.nasa.gov>
diff --git a/contrib/perl5/lib/termcap.pl b/contrib/perl5/lib/termcap.pl
index 37313432fdee5..b75aab7c43508 100644
--- a/contrib/perl5/lib/termcap.pl
+++ b/contrib/perl5/lib/termcap.pl
@@ -1,4 +1,4 @@
-;# $RCSfile: termcap.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:16 $
+;# $RCSfile: termcap.pl,v $$Revision: 1.1.1.1 $$Date: 1998/09/09 06:59:54 $
;#
;# Usage:
;# require 'ioctl.pl';
diff --git a/contrib/perl5/lib/validate.pl b/contrib/perl5/lib/validate.pl
index ec4a04b543674..401868ab155b7 100644
--- a/contrib/perl5/lib/validate.pl
+++ b/contrib/perl5/lib/validate.pl
@@ -1,4 +1,4 @@
-;# $RCSfile: validate.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:19 $
+;# $RCSfile: validate.pl,v $$Revision: 1.1.1.1 $$Date: 1998/09/09 06:59:54 $
;# The validate routine takes a single multiline string consisting of
;# lines containing a filename plus a file test to try on it. (The