perl 4.0.00: (no release announcement available)perl-4.0.00

So far, 4.0 is still a beta test version.  For the last production
version, look in pub/perl.3.0/kits@44.

29 files changed, 35 insertions, 29 deletions

diff --git a/eg/ADB b/eg/ADB
index ef54d6d2dd..b62804e739 100644
--- a/eg/ADB
+++ b/eg/ADB
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: ADB,v 3.0 89/10/18 15:13:04 lwall Locked $
+# $Header: ADB,v 4.0 91/03/20 01:08:34 lwall Locked $
 
 # This script is only useful when used in your crash directory.
 
diff --git a/eg/changes b/eg/changes
index 7cdc4cd3bb..3b712e81e7 100644
--- a/eg/changes
+++ b/eg/changes
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $Header: changes,v 3.0 89/10/18 15:13:23 lwall Locked $
+# $Header: changes,v 4.0 91/03/20 01:08:56 lwall Locked $
 
 ($dir, $days) = @ARGV;
 $dir = '/' if $dir eq '';
diff --git a/eg/dus b/eg/dus
index 3f6e7744f1..2120679c12 100644
--- a/eg/dus
+++ b/eg/dus
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: dus,v 3.0 89/10/18 15:13:43 lwall Locked $
+# $Header: dus,v 4.0 91/03/20 01:09:20 lwall Locked $
 
 # This script does a du -s on any directories in the current directory that
 # are not mount points for another filesystem.
diff --git a/eg/findcp b/eg/findcp
index 537264ef7c..598868e621 100644
--- a/eg/findcp
+++ b/eg/findcp
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: findcp,v 3.0 89/10/18 15:13:47 lwall Locked $
+# $Header: findcp,v 4.0 91/03/20 01:09:37 lwall Locked $
 
 # 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/eg/findtar b/eg/findtar
index 4fdcdad268..d7c85d4255 100644
--- a/eg/findtar
+++ b/eg/findtar
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: findtar,v 3.0 89/10/18 15:13:52 lwall Locked $
+# $Header: findtar,v 4.0 91/03/20 01:09:48 lwall Locked $
 
 # 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/eg/g/gcp b/eg/g/gcp
index 9485772c5f..c803dfe4c7 100644
--- a/eg/g/gcp
+++ b/eg/g/gcp
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: gcp,v 3.0 89/10/18 15:13:59 lwall Locked $
+# $Header: gcp,v 4.0 91/03/20 01:10:05 lwall Locked $
 
 # Here is a script to do global rcps.  See man page.
 
diff --git a/eg/g/gcp.man b/eg/g/gcp.man
index e14534beb8..8f4fa44b19 100644
--- a/eg/g/gcp.man
+++ b/eg/g/gcp.man
@@ -1,4 +1,4 @@
-.\" $Header: gcp.man,v 3.0 89/10/18 15:14:09 lwall Locked $
+.\" $Header: gcp.man,v 4.0 91/03/20 01:10:13 lwall Locked $
 .TH GCP 1C "13 May 1988"
 .SH NAME
 gcp \- global file copy
diff --git a/eg/g/ged b/eg/g/ged
index ef1867a20d..86ce185710 100644
--- a/eg/g/ged
+++ b/eg/g/ged
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: ged,v 3.0 89/10/18 15:14:22 lwall Locked $
+# $Header: ged,v 4.0 91/03/20 01:10:22 lwall Locked $
 
 # Does inplace edits on a set of files on a set of machines.
 #
diff --git a/eg/g/gsh b/eg/g/gsh
index 9de82a8df9..844e5a7ef0 100644
--- a/eg/g/gsh
+++ b/eg/g/gsh
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 
-# $Header: gsh,v 3.0.1.2 90/03/12 16:34:11 lwall Locked $
+# $Header: gsh,v 4.0 91/03/20 01:10:40 lwall Locked $
 
 # Do rsh globally--see man page
 
diff --git a/eg/g/gsh.man b/eg/g/gsh.man
index 08bed19978..845d1f51fd 100644
--- a/eg/g/gsh.man
+++ b/eg/g/gsh.man
@@ -1,4 +1,4 @@
-.\" $Header: gsh.man,v 3.0 89/10/18 15:14:42 lwall Locked $
+.\" $Header: gsh.man,v 4.0 91/03/20 01:10:46 lwall Locked $
 .TH GSH 8 "13 May 1988"
 .SH NAME
 gsh \- global shell
diff --git a/eg/muck.man b/eg/muck.man
index e4327150fd..ec9e5d88fb 100644
--- a/eg/muck.man
+++ b/eg/muck.man
@@ -1,4 +1,4 @@
-.\" $Header: muck.man,v 3.0 89/10/18 15:14:55 lwall Locked $
+.\" $Header: muck.man,v 4.0 91/03/20 01:11:04 lwall Locked $
 .TH MUCK 1 "10 Jan 1989"
 .SH NAME
 muck \- make usage checker
diff --git a/eg/myrup b/eg/myrup
index f7d64dbd2f..b882b31cd0 100644
--- a/eg/myrup
+++ b/eg/myrup
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: myrup,v 3.0 89/10/18 15:15:06 lwall Locked $
+# $Header: myrup,v 4.0 91/03/20 01:11:16 lwall Locked $
 
 # 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/eg/nih b/eg/nih
index 67f25cdddf..4b7cda389d 100644
--- a/eg/nih
+++ b/eg/nih
@@ -1,7 +1,7 @@
 eval "exec /usr/bin/perl -Spi.bak $0 $*"
 	if $running_under_some_shell;
 
-# $Header: nih,v 3.0 89/10/18 15:15:12 lwall Locked $
+# $Header: nih,v 4.0 91/03/20 01:11:29 lwall Locked $
 
 # 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/eg/relink b/eg/relink
index d31f96eacf..d1a0b83fcd 100644
--- a/eg/relink
+++ b/eg/relink
@@ -2,9 +2,12 @@
 'di';
 'ig00';
 #
-# $Header: relink,v 3.0.1.2 90/08/09 03:17:44 lwall Locked $
+# $Header: relink,v 4.0 91/03/20 01:11:40 lwall Locked $
 #
 # $Log:	relink,v $
+# Revision 4.0  91/03/20  01:11:40  lwall
+# 4.0 baseline.
+# 
 # Revision 3.0.1.2  90/08/09  03:17:44  lwall
 # patch19: added man page for relink and rename
 # 
diff --git a/eg/rename b/eg/rename
index f63a0ebe8b..6d6188d7d0 100644
--- a/eg/rename
+++ b/eg/rename
@@ -2,9 +2,12 @@
 'di';
 'ig00';
 #
-# $Header: rename,v 3.0.1.2 90/08/09 03:17:57 lwall Locked $
+# $Header: rename,v 4.0 91/03/20 01:11:53 lwall Locked $
 #
 # $Log:	rename,v $
+# Revision 4.0  91/03/20  01:11:53  lwall
+# 4.0 baseline.
+# 
 # Revision 3.0.1.2  90/08/09  03:17:57  lwall
 # patch19: added man page for relink and rename
 # 
diff --git a/eg/rmfrom b/eg/rmfrom
index 43ce1058ae..a405eac4e2 100644
--- a/eg/rmfrom
+++ b/eg/rmfrom
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -n
 
-# $Header: rmfrom,v 3.0 89/10/18 15:15:20 lwall Locked $
+# $Header: rmfrom,v 4.0 91/03/20 01:12:02 lwall Locked $
 
 # A handy (but dangerous) script to put after a find ... -print.
 
diff --git a/eg/scan/scan_df b/eg/scan/scan_df
index 27ee81af1a..ea76f8804a 100644
--- a/eg/scan/scan_df
+++ b/eg/scan/scan_df
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $Header: scan_df,v 3.0 89/10/18 15:15:26 lwall Locked $
+# $Header: scan_df,v 4.0 91/03/20 01:12:28 lwall Locked $
 
 # This report points out filesystems that are in danger of overflowing.
 
diff --git a/eg/scan/scan_last b/eg/scan/scan_last
index 65a07fe377..c2c1606224 100644
--- a/eg/scan/scan_last
+++ b/eg/scan/scan_last
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $Header: scan_last,v 3.0 89/10/18 15:15:31 lwall Locked $
+# $Header: scan_last,v 4.0 91/03/20 01:12:45 lwall Locked $
 
 # This reports who was logged on at weird hours
 
diff --git a/eg/scan/scan_messages b/eg/scan/scan_messages
index ae641a9c25..5aa45ff102 100644
--- a/eg/scan/scan_messages
+++ b/eg/scan/scan_messages
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $Header: scan_messages,v 3.0 89/10/18 15:15:38 lwall Locked $
+# $Header: scan_messages,v 4.0 91/03/20 01:13:01 lwall Locked $
 
 # This prints out extraordinary console messages.  You'll need to customize.
 
diff --git a/eg/scan/scan_passwd b/eg/scan/scan_passwd
index f49b1a9d00..e24e1852e4 100644
--- a/eg/scan/scan_passwd
+++ b/eg/scan/scan_passwd
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: scan_passwd,v 3.0 89/10/18 15:15:43 lwall Locked $
+# $Header: scan_passwd,v 4.0 91/03/20 01:13:18 lwall Locked $
 
 # This scans passwd file for security holes.
 
diff --git a/eg/scan/scan_ps b/eg/scan/scan_ps
index a70f360b9f..44fdfbbd69 100644
--- a/eg/scan/scan_ps
+++ b/eg/scan/scan_ps
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $Header: scan_ps,v 3.0 89/10/18 15:15:47 lwall Locked $
+# $Header: scan_ps,v 4.0 91/03/20 01:13:29 lwall Locked $
 
 # This looks for looping processes.
 
diff --git a/eg/scan/scan_sudo b/eg/scan/scan_sudo
index bfbebe2821..c5d46466cf 100644
--- a/eg/scan/scan_sudo
+++ b/eg/scan/scan_sudo
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $Header: scan_sudo,v 3.0 89/10/18 15:15:52 lwall Locked $
+# $Header: scan_sudo,v 4.0 91/03/20 01:13:44 lwall Locked $
 
 # Analyze the sudo log.
 
diff --git a/eg/scan/scan_suid b/eg/scan/scan_suid
index 1ebca0bdbe..fdff2a0ebe 100644
--- a/eg/scan/scan_suid
+++ b/eg/scan/scan_suid
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -P
 
-# $Header: scan_suid,v 3.0 89/10/18 15:15:57 lwall Locked $
+# $Header: scan_suid,v 4.0 91/03/20 01:14:00 lwall Locked $
 
 # Look for new setuid root files.
 
diff --git a/eg/scan/scanner b/eg/scan/scanner
index 70d2af80c1..968a36dc8d 100644
--- a/eg/scan/scanner
+++ b/eg/scan/scanner
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: scanner,v 3.0.1.1 90/03/12 16:35:15 lwall Locked $
+# $Header: scanner,v 4.0 91/03/20 01:14:11 lwall Locked $
 
 # 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/eg/shmkill b/eg/shmkill
index f3d4aecb18..55893ccb83 100644
--- a/eg/shmkill
+++ b/eg/shmkill
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: shmkill,v 3.0 89/10/18 15:16:09 lwall Locked $
+# $Header: shmkill,v 4.0 91/03/20 01:14:20 lwall Locked $
 
 # A script to call from crontab periodically when people are leaving shared
 # memory sitting around unattached.
diff --git a/eg/van/empty b/eg/van/empty
index 0f3d9e321f..954dbd11b2 100644
--- a/eg/van/empty
+++ b/eg/van/empty
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: empty,v 3.0 89/10/18 15:16:28 lwall Locked $
+# $Header: empty,v 4.0 91/03/20 01:15:25 lwall Locked $
 
 # This script empties a trashcan.
 
diff --git a/eg/van/unvanish b/eg/van/unvanish
index 5c0dab07a2..82d3291ed8 100644
--- a/eg/van/unvanish
+++ b/eg/van/unvanish
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: unvanish,v 3.0 89/10/18 15:16:35 lwall Locked $
+# $Header: unvanish,v 4.0 91/03/20 01:15:38 lwall Locked $
 
 sub it {
     if ($olddir ne '.') {
diff --git a/eg/van/vanexp b/eg/van/vanexp
index ef31882e22..26adae20a9 100644
--- a/eg/van/vanexp
+++ b/eg/van/vanexp
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: vanexp,v 3.0 89/10/18 15:16:41 lwall Locked $
+# $Header: vanexp,v 4.0 91/03/20 01:15:54 lwall Locked $
 
 # This is for running from a find at night to expire old .deleteds
 
diff --git a/eg/van/vanish b/eg/van/vanish
index e49c0528c7..9cd809ab10 100644
--- a/eg/van/vanish
+++ b/eg/van/vanish
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Header: vanish,v 3.0 89/10/18 15:16:46 lwall Locked $
+# $Header: vanish,v 4.0 91/03/20 01:16:05 lwall Locked $
 
 sub it {
     if ($olddir ne '.') {