merge in perl 5.6.1 with our local changes

30 files changed, 36 insertions, 36 deletions

diff --git a/gnu/usr.bin/perl/eg/ADB b/gnu/usr.bin/perl/eg/ADB
index 9f90afb2fc8..fcc3e48574a 100644
--- a/gnu/usr.bin/perl/eg/ADB
+++ b/gnu/usr.bin/perl/eg/ADB
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: ADB,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:44 $
+# $RCSfile: ADB,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:03 $
 
 # This script is only useful when used in your crash directory.
 
diff --git a/gnu/usr.bin/perl/eg/changes b/gnu/usr.bin/perl/eg/changes
index 704a17dcdda..d6805db48cd 100644
--- a/gnu/usr.bin/perl/eg/changes
+++ b/gnu/usr.bin/perl/eg/changes
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $RCSfile: changes,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:44 $
+# $RCSfile: changes,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:03 $
 
 ($dir, $days) = @ARGV;
 $dir = '/' if $dir eq '';
diff --git a/gnu/usr.bin/perl/eg/dus b/gnu/usr.bin/perl/eg/dus
index c8a3ed1c9cd..de7bb077c77 100644
--- a/gnu/usr.bin/perl/eg/dus
+++ b/gnu/usr.bin/perl/eg/dus
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: dus,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:44 $
+# $RCSfile: dus,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:03 $
 
 # This script does a du -s on any directories in the current directory that
 # are not mount points for another filesystem.
diff --git a/gnu/usr.bin/perl/eg/findcp b/gnu/usr.bin/perl/eg/findcp
index 3346f6c144b..fb597c22d67 100644
--- a/gnu/usr.bin/perl/eg/findcp
+++ b/gnu/usr.bin/perl/eg/findcp
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: findcp,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:46 $
+# $RCSfile: findcp,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:03 $
 
 # This is a wrapper around the find command that pretends find has a switch
 # of the form -cp host:destination.  It presumes your find implements -ls.
diff --git a/gnu/usr.bin/perl/eg/findtar b/gnu/usr.bin/perl/eg/findtar
index 433b9107dca..eabbe63dd5a 100644
--- a/gnu/usr.bin/perl/eg/findtar
+++ b/gnu/usr.bin/perl/eg/findtar
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: findtar,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:46 $
+# $RCSfile: findtar,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:03 $
 
 # findtar takes find-style arguments and spits out a tarfile on stdout.
 # It won't work unless your find supports -ls and your tar the I flag.
diff --git a/gnu/usr.bin/perl/eg/g/gcp b/gnu/usr.bin/perl/eg/g/gcp
index 482951b87a3..762a6f5bbc7 100644
--- a/gnu/usr.bin/perl/eg/g/gcp
+++ b/gnu/usr.bin/perl/eg/g/gcp
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: gcp,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:53 $
+# $RCSfile: gcp,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:04 $
 
 # Here is a script to do global rcps.  See man page.
 
diff --git a/gnu/usr.bin/perl/eg/g/gcp.man b/gnu/usr.bin/perl/eg/g/gcp.man
index c14442b0a54..e53e3d0d32f 100644
--- a/gnu/usr.bin/perl/eg/g/gcp.man
+++ b/gnu/usr.bin/perl/eg/g/gcp.man
@@ -1,4 +1,4 @@
-.\" $RCSfile: gcp.man,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:53 $
+.\" $RCSfile: gcp.man,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:05 $
 .TH GCP 1C "13 May 1988"
 .SH NAME
 gcp \- global file copy
diff --git a/gnu/usr.bin/perl/eg/g/ged b/gnu/usr.bin/perl/eg/g/ged
index 394bcb2846a..766f1d0f3af 100644
--- a/gnu/usr.bin/perl/eg/g/ged
+++ b/gnu/usr.bin/perl/eg/g/ged
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: ged,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:54 $
+# $RCSfile: ged,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:05 $
 
 # Does inplace edits on a set of files on a set of machines.
 #
diff --git a/gnu/usr.bin/perl/eg/g/gsh b/gnu/usr.bin/perl/eg/g/gsh
index 0fd58181d96..561f1773be9 100644
--- a/gnu/usr.bin/perl/eg/g/gsh
+++ b/gnu/usr.bin/perl/eg/g/gsh
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 
-# $RCSfile: gsh,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:54 $
+# $RCSfile: gsh,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:05 $
 
 # Do rsh globally--see man page
 
diff --git a/gnu/usr.bin/perl/eg/g/gsh.man b/gnu/usr.bin/perl/eg/g/gsh.man
index 228311ede86..d4645f3583b 100644
--- a/gnu/usr.bin/perl/eg/g/gsh.man
+++ b/gnu/usr.bin/perl/eg/g/gsh.man
@@ -1,4 +1,4 @@
-.\" $RCSfile: gsh.man,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:54 $
+.\" $RCSfile: gsh.man,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:05 $
 .TH GSH 8 "13 May 1988"
 .SH NAME
 gsh \- global shell
diff --git a/gnu/usr.bin/perl/eg/muck.man b/gnu/usr.bin/perl/eg/muck.man
index 709327e2a13..58af38c3a1d 100644
--- a/gnu/usr.bin/perl/eg/muck.man
+++ b/gnu/usr.bin/perl/eg/muck.man
@@ -1,4 +1,4 @@
-.\" $RCSfile: muck.man,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:47 $
+.\" $RCSfile: muck.man,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:03 $
 .TH MUCK 1 "10 Jan 1989"
 .SH NAME
 muck \- make usage checker
diff --git a/gnu/usr.bin/perl/eg/myrup b/gnu/usr.bin/perl/eg/myrup
index e5cb77a7c6f..b9d63af0060 100644
--- a/gnu/usr.bin/perl/eg/myrup
+++ b/gnu/usr.bin/perl/eg/myrup
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: myrup,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:47 $
+# $RCSfile: myrup,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:03 $
 
 # This was a customization of ruptime requested by someone here who wanted
 # to be able to find the least loaded machine easily.  It uses the
diff --git a/gnu/usr.bin/perl/eg/nih b/gnu/usr.bin/perl/eg/nih
index abec507d718..559cfd927d6 100644
--- a/gnu/usr.bin/perl/eg/nih
+++ b/gnu/usr.bin/perl/eg/nih
@@ -1,7 +1,7 @@
 eval 'exec /usr/bin/perl -Spi.bak $0 ${1+"$@"}'
 	if $running_under_some_shell;
 
-# $RCSfile: nih,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:47 $
+# $RCSfile: nih,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:04 $
 
 # This script makes #! scripts directly executable on machines that don't
 # support #!.  It edits in place any scripts mentioned on the command line.
diff --git a/gnu/usr.bin/perl/eg/relink b/gnu/usr.bin/perl/eg/relink
index 52be085e744..6cf1bf31119 100644
--- a/gnu/usr.bin/perl/eg/relink
+++ b/gnu/usr.bin/perl/eg/relink
@@ -2,11 +2,11 @@
 'di';
 'ig00';
 #
-# $RCSfile: relink,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:48 $
+# $RCSfile: relink,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:04 $
 #
 # $Log: relink,v $
-# Revision 1.4  2000/04/06 17:04:48  millert
-# perl-5.6.0 + local changes
+# Revision 1.5  2001/05/24 18:35:04  millert
+# merge in perl 5.6.1 with our local changes
 #
 
 ($op = shift) || die "Usage: relink perlexpr [filenames]\n";
diff --git a/gnu/usr.bin/perl/eg/rename b/gnu/usr.bin/perl/eg/rename
index 3fb01ca6585..c338a80ac36 100644
--- a/gnu/usr.bin/perl/eg/rename
+++ b/gnu/usr.bin/perl/eg/rename
@@ -2,11 +2,11 @@
 'di';
 'ig00';
 #
-# $RCSfile: rename,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:48 $
+# $RCSfile: rename,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:04 $
 #
 # $Log: rename,v $
-# Revision 1.4  2000/04/06 17:04:48  millert
-# perl-5.6.0 + local changes
+# Revision 1.5  2001/05/24 18:35:04  millert
+# merge in perl 5.6.1 with our local changes
 #
 
 ($op = shift) || die "Usage: rename perlexpr [filenames]\n";
diff --git a/gnu/usr.bin/perl/eg/rmfrom b/gnu/usr.bin/perl/eg/rmfrom
index 1f36c0511b0..8c7617fa0df 100644
--- a/gnu/usr.bin/perl/eg/rmfrom
+++ b/gnu/usr.bin/perl/eg/rmfrom
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -n
 
-# $RCSfile: rmfrom,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:48 $
+# $RCSfile: rmfrom,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:04 $
 
 # A handy (but dangerous) script to put after a find ... -print.
 
diff --git a/gnu/usr.bin/perl/eg/scan/scan_df b/gnu/usr.bin/perl/eg/scan/scan_df
index 3f56bd943e7..133dfd1f306 100644
--- a/gnu/usr.bin/perl/eg/scan/scan_df
+++ b/gnu/usr.bin/perl/eg/scan/scan_df
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $RCSfile: scan_df,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:55 $
+# $RCSfile: scan_df,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:05 $
 
 # This report points out filesystems that are in danger of overflowing.
 
diff --git a/gnu/usr.bin/perl/eg/scan/scan_last b/gnu/usr.bin/perl/eg/scan/scan_last
index 4ffd9c0ed9c..171176a8729 100644
--- a/gnu/usr.bin/perl/eg/scan/scan_last
+++ b/gnu/usr.bin/perl/eg/scan/scan_last
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $RCSfile: scan_last,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:55 $
+# $RCSfile: scan_last,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:05 $
 
 # This reports who was logged on at weird hours
 
diff --git a/gnu/usr.bin/perl/eg/scan/scan_messages b/gnu/usr.bin/perl/eg/scan/scan_messages
index 47ce55ff692..1dce8ee108d 100644
--- a/gnu/usr.bin/perl/eg/scan/scan_messages
+++ b/gnu/usr.bin/perl/eg/scan/scan_messages
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $RCSfile: scan_messages,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:57 $
+# $RCSfile: scan_messages,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:05 $
 
 # This prints out extraordinary console messages.  You'll need to customize.
 
diff --git a/gnu/usr.bin/perl/eg/scan/scan_passwd b/gnu/usr.bin/perl/eg/scan/scan_passwd
index e8273fe5acb..e7a92c516f0 100644
--- a/gnu/usr.bin/perl/eg/scan/scan_passwd
+++ b/gnu/usr.bin/perl/eg/scan/scan_passwd
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: scan_passwd,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:57 $
+# $RCSfile: scan_passwd,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:06 $
 
 # This scans passwd file for security holes.
 
diff --git a/gnu/usr.bin/perl/eg/scan/scan_ps b/gnu/usr.bin/perl/eg/scan/scan_ps
index 18b495ca65f..a266e3329d2 100644
--- a/gnu/usr.bin/perl/eg/scan/scan_ps
+++ b/gnu/usr.bin/perl/eg/scan/scan_ps
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $RCSfile: scan_ps,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:57 $
+# $RCSfile: scan_ps,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:06 $
 
 # This looks for looping processes.
 
diff --git a/gnu/usr.bin/perl/eg/scan/scan_sudo b/gnu/usr.bin/perl/eg/scan/scan_sudo
index bec2b9d26d8..58ed4363aff 100644
--- a/gnu/usr.bin/perl/eg/scan/scan_sudo
+++ b/gnu/usr.bin/perl/eg/scan/scan_sudo
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $RCSfile: scan_sudo,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:58 $
+# $RCSfile: scan_sudo,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:06 $
 
 # Analyze the sudo log.
 
diff --git a/gnu/usr.bin/perl/eg/scan/scan_suid b/gnu/usr.bin/perl/eg/scan/scan_suid
index d8a4eff17c9..b5bd71ec83f 100644
--- a/gnu/usr.bin/perl/eg/scan/scan_suid
+++ b/gnu/usr.bin/perl/eg/scan/scan_suid
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $RCSfile: scan_suid,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:58 $
+# $RCSfile: scan_suid,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:06 $
 
 # Look for new setuid root files.
 
diff --git a/gnu/usr.bin/perl/eg/scan/scanner b/gnu/usr.bin/perl/eg/scan/scanner
index 6aac7e5dc01..7736682f541 100644
--- a/gnu/usr.bin/perl/eg/scan/scanner
+++ b/gnu/usr.bin/perl/eg/scan/scanner
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: scanner,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:58 $
+# $RCSfile: scanner,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:06 $
 
 # This runs all the scan_* routines on all the machines in /etc/ghosts.
 # We run this every morning at about 6 am:
diff --git a/gnu/usr.bin/perl/eg/shmkill b/gnu/usr.bin/perl/eg/shmkill
index a6a88593dbb..7db508bf9f3 100644
--- a/gnu/usr.bin/perl/eg/shmkill
+++ b/gnu/usr.bin/perl/eg/shmkill
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: shmkill,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:48 $
+# $RCSfile: shmkill,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:04 $
 
 # A script to call from crontab periodically when people are leaving shared
 # memory sitting around unattached.
diff --git a/gnu/usr.bin/perl/eg/van/empty b/gnu/usr.bin/perl/eg/van/empty
index 47ea21216ee..481076f74d0 100644
--- a/gnu/usr.bin/perl/eg/van/empty
+++ b/gnu/usr.bin/perl/eg/van/empty
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: empty,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:59 $
+# $RCSfile: empty,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:06 $
 
 # This script empties a trashcan.
 
diff --git a/gnu/usr.bin/perl/eg/van/unvanish b/gnu/usr.bin/perl/eg/van/unvanish
index 433f52b2fc3..e1200c5355f 100644
--- a/gnu/usr.bin/perl/eg/van/unvanish
+++ b/gnu/usr.bin/perl/eg/van/unvanish
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: unvanish,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:59 $
+# $RCSfile: unvanish,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:06 $
 
 sub it {
     if ($olddir ne '.') {
diff --git a/gnu/usr.bin/perl/eg/van/vanexp b/gnu/usr.bin/perl/eg/van/vanexp
index be23584798e..684e49c71cc 100644
--- a/gnu/usr.bin/perl/eg/van/vanexp
+++ b/gnu/usr.bin/perl/eg/van/vanexp
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: vanexp,v $$Revision: 1.4 $$Date: 2000/04/06 17:05:00 $
+# $RCSfile: vanexp,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:07 $
 
 # This is for running from a find at night to expire old .deleteds
 
diff --git a/gnu/usr.bin/perl/eg/van/vanish b/gnu/usr.bin/perl/eg/van/vanish
index 06dc004da90..bf32b5231ae 100644
--- a/gnu/usr.bin/perl/eg/van/vanish
+++ b/gnu/usr.bin/perl/eg/van/vanish
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $RCSfile: vanish,v $$Revision: 1.4 $$Date: 2000/04/06 17:05:00 $
+# $RCSfile: vanish,v $$Revision: 1.5 $$Date: 2001/05/24 18:35:07 $
 
 sub it {
     if ($olddir ne '.') {
diff --git a/gnu/usr.bin/perl/eg/wrapsuid b/gnu/usr.bin/perl/eg/wrapsuid
index e7d53b768b1..83eaefd24da 100644
--- a/gnu/usr.bin/perl/eg/wrapsuid
+++ b/gnu/usr.bin/perl/eg/wrapsuid
@@ -2,11 +2,11 @@
 'di';
 'ig00';
 #
-# $Header: /cvs/OpenBSD/src/gnu/usr.bin/perl/eg/Attic/wrapsuid,v 1.4 2000/04/06 17:04:49 millert Exp $
+# $Header: /cvs/OpenBSD/src/gnu/usr.bin/perl/eg/Attic/wrapsuid,v 1.5 2001/05/24 18:35:04 millert Exp $
 #
 # $Log: wrapsuid,v $
-# Revision 1.4  2000/04/06 17:04:49  millert
-# perl-5.6.0 + local changes
+# Revision 1.5  2001/05/24 18:35:04  millert
+# merge in perl 5.6.1 with our local changes
 #
 # Revision 1.1  90/08/11  13:51:29  lwall
 # Initial revision