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.

75 files changed, 138 insertions, 262 deletions

diff --git a/t/TEST b/t/TEST
index 11fae071d3..9885b75418 100644
--- a/t/TEST
+++ b/t/TEST
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: TEST,v 3.0.1.3 91/01/11 18:28:17 lwall Locked $
+# $Header: TEST,v 4.0 91/03/20 01:40:22 lwall Locked $
 
 # This is written in a peculiar style, since we're trying to avoid
 # most of the constructs we'll be testing for.
@@ -15,7 +15,8 @@ if ($ARGV[0] eq '-v') {
 chdir 't' if -f 't/TEST';
 
 if ($ARGV[0] eq '') {
-    @ARGV = split(/[ \n]/,`echo base.* comp.* cmd.* io.* op.* lib.*`);
+    @ARGV = split(/[ \n]/,
+      `echo base/*.t comp/*.t cmd/*.t io/*.t; echo op/*.t lib/*.t`);
 }
 
 open(CONFIG,"../config.sh");
@@ -27,16 +28,12 @@ while (<CONFIG>) {
 }
 $bad = 0;
 while ($test = shift) {
-    if ($test =~ /\.orig$/) {
+    if ($test =~ /^$/) {
 	next;
     }
-    if ($test =~ /\.rej$/) {
-	next;
-    }
-    if ($test =~ /~$/) {
-	next;
-    }
-    print "$test" . '.' x (16 - length($test));
+    $te = $test;
+    chop($te);
+    print "$te" . '.' x (15 - length($te));
     if ($sharpbang) {
 	open(results,"./$test|") || (print "can't run.\n");
     } else {
diff --git a/t/base.cond b/t/base/cond.t
index c23f593bb2..592580120f 100644
--- a/t/base.cond
+++ b/t/base/cond.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: base.cond,v 3.0 89/10/18 15:24:11 lwall Locked $
+# $Header: cond.t,v 4.0 91/03/20 01:48:54 lwall Locked $
 
 # make sure conditional operators work
 
diff --git a/t/base.if b/t/base/if.t
index 234ddc981d..6965ef5141 100644
--- a/t/base.if
+++ b/t/base/if.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: base.if,v 3.0 89/10/18 15:24:17 lwall Locked $
+# $Header: if.t,v 4.0 91/03/20 01:49:03 lwall Locked $
 
 print "1..2\n";
 
diff --git a/t/base.lex b/t/base/lex.t
index 5fb62d5988..0c94b875a3 100644
--- a/t/base.lex
+++ b/t/base/lex.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: base.lex,v 3.0.1.1 90/08/09 05:24:43 lwall Locked $
+# $Header: lex.t,v 4.0 91/03/20 01:49:08 lwall Locked $
 
 print "1..18\n";
 
diff --git a/t/base.pat b/t/base/pat.t
index a026a86ce6..8ad88dd331 100644
--- a/t/base.pat
+++ b/t/base/pat.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: base.pat,v 3.0 89/10/18 15:24:30 lwall Locked $
+# $Header: pat.t,v 4.0 91/03/20 01:49:12 lwall Locked $
 
 print "1..2\n";
 
diff --git a/t/base.term b/t/base/term.t
index 6055fe218c..c322242710 100644
--- a/t/base.term
+++ b/t/base/term.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: base.term,v 3.0.1.1 90/02/28 18:31:56 lwall Locked $
+# $Header: term.t,v 4.0 91/03/20 01:49:17 lwall Locked $
 
 print "1..6\n";
 
diff --git a/t/cmd.elsif b/t/cmd/elsif.t
index 8079bee524..975acef4f7 100644
--- a/t/cmd.elsif
+++ b/t/cmd/elsif.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: cmd.elsif,v 3.0 89/10/18 15:24:38 lwall Locked $
+# $Header: elsif.t,v 4.0 91/03/20 01:49:21 lwall Locked $
 
 sub foo {
     if ($_[0] == 1) {
diff --git a/t/cmd.for b/t/cmd/for.t
index 89bf9d33e5..16745b5b28 100644
--- a/t/cmd.for
+++ b/t/cmd/for.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: cmd.for,v 3.0 89/10/18 15:24:43 lwall Locked $
+# $Header: for.t,v 4.0 91/03/20 01:49:26 lwall Locked $
 
 print "1..7\n";
 
diff --git a/t/cmd.mod b/t/cmd/mod.t
index f6b8a6e738..787aade307 100644
--- a/t/cmd.mod
+++ b/t/cmd/mod.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: cmd.mod,v 3.0 89/10/18 15:24:48 lwall Locked $
+# $Header: mod.t,v 4.0 91/03/20 01:49:33 lwall Locked $
 
 print "1..7\n";
 
diff --git a/t/cmd.subval b/t/cmd/subval.t
index 88457152a7..ba4d833d3a 100644
--- a/t/cmd.subval
+++ b/t/cmd/subval.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: cmd.subval,v 3.0.1.1 90/10/16 10:46:53 lwall Locked $
+# $Header: subval.t,v 4.0 91/03/20 01:49:40 lwall Locked $
 
 sub foo1 {
     'true1';
diff --git a/t/cmd.switch b/t/cmd/switch.t
index 315039d36e..2af2c9e971 100644
--- a/t/cmd.switch
+++ b/t/cmd/switch.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: cmd.switch,v 3.0 89/10/18 15:25:00 lwall Locked $
+# $Header: switch.t,v 4.0 91/03/20 01:49:44 lwall Locked $
 
 print "1..18\n";
 
diff --git a/t/cmd.while b/t/cmd/while.t
index 53fdb1014a..9876095c1c 100644
--- a/t/cmd.while
+++ b/t/cmd/while.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: cmd.while,v 3.0 89/10/18 15:25:07 lwall Locked $
+# $Header: while.t,v 4.0 91/03/20 01:49:51 lwall Locked $
 
 print "1..10\n";
 
diff --git a/t/comp.cmdopt b/t/comp/cmdopt.t
index 3ae5a6629f..e6e2abff75 100644
--- a/t/comp.cmdopt
+++ b/t/comp/cmdopt.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: comp.cmdopt,v 3.0 89/10/18 15:25:13 lwall Locked $
+# $Header: cmdopt.t,v 4.0 91/03/20 01:49:58 lwall Locked $
 
 print "1..40\n";
 
diff --git a/t/comp.cpp b/t/comp/cpp.t
index 9e8b1d3378..0e2b6fa681 100644
--- a/t/comp.cpp
+++ b/t/comp/cpp.t
@@ -1,6 +1,6 @@
 #!./perl -P
 
-# $Header: comp.cpp,v 3.0.1.2 90/11/10 02:10:17 lwall Locked $
+# $Header: cpp.t,v 4.0 91/03/20 01:50:05 lwall Locked $
 
 print "1..3\n";
 
diff --git a/t/comp.decl b/t/comp/decl.t
index ef59e798cc..af8bf05ba8 100644
--- a/t/comp.decl
+++ b/t/comp/decl.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: comp.decl,v 3.0 89/10/18 15:25:25 lwall Locked $
+# $Header: decl.t,v 4.0 91/03/20 01:50:09 lwall Locked $
 
 # check to see if subroutine declarations work everwhere
 
diff --git a/t/comp.multiline b/t/comp/multiline.t
index 10cf462f84..55650813f4 100644
--- a/t/comp.multiline
+++ b/t/comp/multiline.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: comp.multiline,v 3.0 89/10/18 15:25:39 lwall Locked $
+# $Header: multiline.t,v 4.0 91/03/20 01:50:15 lwall Locked $
 
 print "1..5\n";
 
diff --git a/t/comp.package b/t/comp/package.t
index 5237011a62..5237011a62 100644
--- a/t/comp.package
+++ b/t/comp/package.t
diff --git a/t/comp.script b/t/comp/script.t
index 378a006848..8e882933ce 100644
--- a/t/comp.script
+++ b/t/comp/script.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: comp.script,v 3.0 89/10/18 15:25:55 lwall Locked $
+# $Header: script.t,v 4.0 91/03/20 01:50:26 lwall Locked $
 
 print "1..3\n";
 
diff --git a/t/comp.term b/t/comp/term.t
index 204024cada..1012f949ba 100644
--- a/t/comp.term
+++ b/t/comp/term.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: comp.term,v 3.0 89/10/18 15:26:04 lwall Locked $
+# $Header: term.t,v 4.0 91/03/20 01:50:36 lwall Locked $
 
 # tests that aren't important enough for base.term
 
diff --git a/t/io.argv b/t/io/argv.t
index a66d26f2e2..6f55896fdf 100644
--- a/t/io.argv
+++ b/t/io/argv.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: io.argv,v 3.0.1.1 89/11/11 04:59:05 lwall Locked $
+# $Header: argv.t,v 4.0 91/03/20 01:50:46 lwall Locked $
 
 print "1..5\n";
 
diff --git a/t/io.dup b/t/io/dup.t
index 6a1f4513f6..e5ea7d410d 100644
--- a/t/io.dup
+++ b/t/io/dup.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: io.dup,v 3.0 89/10/18 15:26:15 lwall Locked $
+# $Header: dup.t,v 4.0 91/03/20 01:50:49 lwall Locked $
 
 print "1..6\n";
 
diff --git a/t/io.fs b/t/io/fs.t
index d25dc025d7..705523cffe 100644
--- a/t/io.fs
+++ b/t/io/fs.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: io.fs,v 3.0.1.1 90/08/13 22:31:17 lwall Locked $
+# $Header: fs.t,v 4.0 91/03/20 01:50:55 lwall Locked $
 
 print "1..22\n";
 
diff --git a/t/io.inplace b/t/io/inplace.t
index c73bd75512..b8a5649056 100644
--- a/t/io.inplace
+++ b/t/io/inplace.t
@@ -1,6 +1,8 @@
-#!./perl -i.bak
+#!./perl
 
-# $Header: io.inplace,v 3.0 89/10/18 15:26:25 lwall Locked $
+$^I = '.bak';
+
+# $Header: inplace.t,v 4.0 91/03/20 01:50:59 lwall Locked $
 
 print "1..2\n";
 
diff --git a/t/io.pipe b/t/io/pipe.t
index d972abab18..d41f5faaec 100644
--- a/t/io.pipe
+++ b/t/io/pipe.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: io.pipe,v 3.0.1.1 90/02/28 18:32:41 lwall Locked $
+# $Header: pipe.t,v 4.0 91/03/20 01:51:02 lwall Locked $
 
 $| = 1;
 print "1..8\n";
diff --git a/t/io.print b/t/io/print.t
index 7d4a901c0c..30294f51fa 100644
--- a/t/io.print
+++ b/t/io/print.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: io.print,v 3.0 89/10/18 15:26:36 lwall Locked $
+# $Header: print.t,v 4.0 91/03/20 01:51:08 lwall Locked $
 
 print "1..16\n";
 
diff --git a/t/io.tell b/t/io/tell.t
index 98cf02717b..cb1fc4c3be 100644
--- a/t/io.tell
+++ b/t/io/tell.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: io.tell,v 3.0 89/10/18 15:26:45 lwall Locked $
+# $Header: tell.t,v 4.0 91/03/20 01:51:14 lwall Locked $
 
 print "1..13\n";
 
diff --git a/t/lib.big b/t/lib/big.t
index 23cd00beb5..23cd00beb5 100644
--- a/t/lib.big
+++ b/t/lib/big.t
diff --git a/t/op.subst b/t/op.subst
deleted file mode 100644
index 97ca2f8293..0000000000
--- a/t/op.subst
+++ /dev/null
@@ -1,165 +0,0 @@
-#!./perl
-
-# $Header: op.s,v 3.0.1.1 90/02/28 18:37:30 lwall Locked $
-
-print "1..42\n";
-
-$x = 'foo';
-$_ = "x";
-s/x/\$x/;
-print "#1\t:$_: eq :\$x:\n";
-if ($_ eq '$x') {print "ok 1\n";} else {print "not ok 1\n";}
-
-$_ = "x";
-s/x/$x/;
-print "#2\t:$_: eq :foo:\n";
-if ($_ eq 'foo') {print "ok 2\n";} else {print "not ok 2\n";}
-
-$_ = "x";
-s/x/\$x $x/;
-print "#3\t:$_: eq :\$x foo:\n";
-if ($_ eq '$x foo') {print "ok 3\n";} else {print "not ok 3\n";}
-
-$b = 'cd';
-($a = 'abcdef') =~ s'(b${b}e)'\n$1';
-print "#4\t:$1: eq :bcde:\n";
-print "#4\t:$a: eq :a\\n\$1f:\n";
-if ($1 eq 'bcde' && $a eq 'a\n$1f') {print "ok 4\n";} else {print "not ok 4\n";}
-
-$a = 'abacada';
-if (($a =~ s/a/x/g) == 4 && $a eq 'xbxcxdx')
-    {print "ok 5\n";} else {print "not ok 5\n";}
-
-if (($a =~ s/a/y/g) == 0 && $a eq 'xbxcxdx')
-    {print "ok 6\n";} else {print "not ok 6 $a\n";}
-
-if (($a =~ s/b/y/g) == 1 && $a eq 'xyxcxdx')
-    {print "ok 7\n";} else {print "not ok 7 $a\n";}
-
-$_ = 'ABACADA';
-if (/a/i && s///gi && $_ eq 'BCD') {print "ok 8\n";} else {print "not ok 8 $_\n";}
-
-$_ = '\\' x 4;
-if (length($_) == 4) {print "ok 9\n";} else {print "not ok 9\n";}
-s/\\/\\\\/g;
-if ($_ eq '\\' x 8) {print "ok 10\n";} else {print "not ok 10 $_\n";}
-
-$_ = '\/' x 4;
-if (length($_) == 8) {print "ok 11\n";} else {print "not ok 11\n";}
-s/\//\/\//g;
-if ($_ eq '\\//' x 4) {print "ok 12\n";} else {print "not ok 12\n";}
-if (length($_) == 12) {print "ok 13\n";} else {print "not ok 13\n";}
-
-$_ = 'aaaXXXXbbb';
-s/^a//;
-print $_ eq 'aaXXXXbbb' ? "ok 14\n" : "not ok 14\n";
-
-$_ = 'aaaXXXXbbb';
-s/a//;
-print $_ eq 'aaXXXXbbb' ? "ok 15\n" : "not ok 15\n";
-
-$_ = 'aaaXXXXbbb';
-s/^a/b/;
-print $_ eq 'baaXXXXbbb' ? "ok 16\n" : "not ok 16\n";
-
-$_ = 'aaaXXXXbbb';
-s/a/b/;
-print $_ eq 'baaXXXXbbb' ? "ok 17\n" : "not ok 17\n";
-
-$_ = 'aaaXXXXbbb';
-s/aa//;
-print $_ eq 'aXXXXbbb' ? "ok 18\n" : "not ok 18\n";
-
-$_ = 'aaaXXXXbbb';
-s/aa/b/;
-print $_ eq 'baXXXXbbb' ? "ok 19\n" : "not ok 19\n";
-
-$_ = 'aaaXXXXbbb';
-s/b$//;
-print $_ eq 'aaaXXXXbb' ? "ok 20\n" : "not ok 20\n";
-
-$_ = 'aaaXXXXbbb';
-s/b//;
-print $_ eq 'aaaXXXXbb' ? "ok 21\n" : "not ok 21\n";
-
-$_ = 'aaaXXXXbbb';
-s/bb//;
-print $_ eq 'aaaXXXXb' ? "ok 22\n" : "not ok 22\n";
-
-$_ = 'aaaXXXXbbb';
-s/aX/y/;
-print $_ eq 'aayXXXbbb' ? "ok 23\n" : "not ok 23\n";
-
-$_ = 'aaaXXXXbbb';
-s/Xb/z/;
-print $_ eq 'aaaXXXzbb' ? "ok 24\n" : "not ok 24\n";
-
-$_ = 'aaaXXXXbbb';
-s/aaX.*Xbb//;
-print $_ eq 'ab' ? "ok 25\n" : "not ok 25\n";
-
-$_ = 'aaaXXXXbbb';
-s/bb/x/;
-print $_ eq 'aaaXXXXxb' ? "ok 26\n" : "not ok 26\n";
-
-# now for some unoptimized versions of the same.
-
-$_ = 'aaaXXXXbbb';
-$x ne $x || s/^a//;
-print $_ eq 'aaXXXXbbb' ? "ok 27\n" : "not ok 27\n";
-
-$_ = 'aaaXXXXbbb';
-$x ne $x || s/a//;
-print $_ eq 'aaXXXXbbb' ? "ok 28\n" : "not ok 28\n";
-
-$_ = 'aaaXXXXbbb';
-$x ne $x || s/^a/b/;
-print $_ eq 'baaXXXXbbb' ? "ok 29\n" : "not ok 29\n";
-
-$_ = 'aaaXXXXbbb';
-$x ne $x || s/a/b/;
-print $_ eq 'baaXXXXbbb' ? "ok 30\n" : "not ok 30\n";
-
-$_ = 'aaaXXXXbbb';
-$x ne $x || s/aa//;
-print $_ eq 'aXXXXbbb' ? "ok 31\n" : "not ok 31\n";
-
-$_ = 'aaaXXXXbbb';
-$x ne $x || s/aa/b/;
-print $_ eq 'baXXXXbbb' ? "ok 32\n" : "not ok 32\n";
-
-$_ = 'aaaXXXXbbb';
-$x ne $x || s/b$//;
-print $_ eq 'aaaXXXXbb' ? "ok 33\n" : "not ok 33\n";
-
-$_ = 'aaaXXXXbbb';
-$x ne $x || s/b//;
-print $_ eq 'aaaXXXXbb' ? "ok 34\n" : "not ok 34\n";
-
-$_ = 'aaaXXXXbbb';
-$x ne $x || s/bb//;
-print $_ eq 'aaaXXXXb' ? "ok 35\n" : "not ok 35\n";
-
-$_ = 'aaaXXXXbbb';
-$x ne $x || s/aX/y/;
-print $_ eq 'aayXXXbbb' ? "ok 36\n" : "not ok 36\n";
-
-$_ = 'aaaXXXXbbb';
-$x ne $x || s/Xb/z/;
-print $_ eq 'aaaXXXzbb' ? "ok 37\n" : "not ok 37\n";
-
-$_ = 'aaaXXXXbbb';
-$x ne $x || s/aaX.*Xbb//;
-print $_ eq 'ab' ? "ok 38\n" : "not ok 38\n";
-
-$_ = 'aaaXXXXbbb';
-$x ne $x || s/bb/x/;
-print $_ eq 'aaaXXXXxb' ? "ok 39\n" : "not ok 39\n";
-
-$_ = 'abc123xyz';
-s/\d+/$&*2/e;              # yields 'abc246xyz'
-print $_ eq 'abc246xyz' ? "ok 40\n" : "not ok 40\n";
-s/\d+/sprintf("%5d",$&)/e; # yields 'abc  246xyz'
-print $_ eq 'abc  246xyz' ? "ok 41\n" : "not ok 41\n";
-s/\w/$& x 2/eg;            # yields 'aabbcc  224466xxyyzz'
-print $_ eq 'aabbcc  224466xxyyzz' ? "ok 42\n" : "not ok 42\n";
diff --git a/t/op.append b/t/op/append.t
index c5805745fa..9140c16b83 100644
--- a/t/op.append
+++ b/t/op/append.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.append,v 3.0 89/10/18 15:26:51 lwall Locked $
+# $Header: append.t,v 4.0 91/03/20 01:51:23 lwall Locked $
 
 print "1..3\n";
 
diff --git a/t/op.array b/t/op/array.t
index 7129ee3e1d..18fe288356 100644
--- a/t/op.array
+++ b/t/op/array.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.array,v 3.0.1.1 90/03/12 17:03:03 lwall Locked $
+# $Header: array.t,v 4.0 91/03/20 01:51:31 lwall Locked $
 
 print "1..36\n";
 
diff --git a/t/op.auto b/t/op/auto.t
index d31dca7e4e..e1122a5774 100644
--- a/t/op.auto
+++ b/t/op/auto.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.auto,v 3.0 89/10/18 15:27:00 lwall Locked $
+# $Header: auto.t,v 4.0 91/03/20 01:51:35 lwall Locked $
 
 print "1..34\n";
 
diff --git a/t/op.chop b/t/op/chop.t
index f293a0ae12..ba6d6262b3 100644
--- a/t/op.chop
+++ b/t/op/chop.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.chop,v 3.0 89/10/18 15:28:19 lwall Locked $
+# $Header: chop.t,v 4.0 91/03/20 01:51:42 lwall Locked $
 
 print "1..4\n";
 
diff --git a/t/op.cond b/t/op/cond.t
index 5cd49fdd64..31baf9d05f 100644
--- a/t/op.cond
+++ b/t/op/cond.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.cond,v 3.0 89/10/18 15:28:26 lwall Locked $
+# $Header: cond.t,v 4.0 91/03/20 01:51:47 lwall Locked $
 
 print "1..4\n";
 
diff --git a/t/op.dbm b/t/op/dbm.t
index 15a6f75872..c31a2489c1 100644
--- a/t/op.dbm
+++ b/t/op/dbm.t
@@ -1,13 +1,13 @@
 #!./perl
 
-# $Header: op.dbm,v 3.0.1.2 91/01/11 18:29:12 lwall Locked $
+# $Header: dbm.t,v 4.0 91/03/20 01:51:52 lwall Locked $
 
 if (!-r '/usr/include/dbm.h' && !-r '/usr/include/ndbm.h') {
     print "1..0\n";
     exit;
 }
 
-print "1..10\n";
+print "1..12\n";
 
 unlink <Op.dbmx.*>;
 umask(0);
@@ -82,6 +82,9 @@ if ($i == 30) {print "ok 6\n";} else {print "not ok 6\n";}
 @keys = ('blurfl', keys(h), 'dyick');
 if ($#keys == 31) {print "ok 7\n";} else {print "not ok 7\n";}
 
+$h{'foo'} = '';
+$h{''} = 'bar';
+
 # check cache overflow and numeric keys and contents
 $ok = 1;
 for ($i = 1; $i < 200; $i++) { $h{$i + 0} = $i + 0; }
@@ -94,6 +97,9 @@ print ($size > 0 ? "ok 9\n" : "not ok 9\n");
 
 @h{0..200} = 200..400;
 @foo = @h{0..200};
-print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "no ok 10\n";
+print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
+
+print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
+print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
 
 unlink 'Op.dbmx.dir', 'Op.dbmx.pag';
diff --git a/t/op.delete b/t/op/delete.t
index 3c5fe320f0..b5920dd397 100644
--- a/t/op.delete
+++ b/t/op/delete.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.delete,v 3.0 89/10/18 15:28:36 lwall Locked $
+# $Header: delete.t,v 4.0 91/03/20 01:51:56 lwall Locked $
 
 print "1..6\n";
 
diff --git a/t/op.do b/t/op/do.t
index d78ea0525f..f75ca3010e 100644
--- a/t/op.do
+++ b/t/op/do.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.do,v 3.0 89/10/18 15:28:43 lwall Locked $
+# $Header: do.t,v 4.0 91/03/20 01:52:08 lwall Locked $
 
 sub foo1
 {
diff --git a/t/op.each b/t/op/each.t
index edaed11e78..d759fda549 100644
--- a/t/op.each
+++ b/t/op/each.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.each,v 3.0 89/10/18 15:28:48 lwall Locked $
+# $Header: each.t,v 4.0 91/03/20 01:52:14 lwall Locked $
 
 print "1..3\n";
 
diff --git a/t/op.eval b/t/op/eval.t
index 5060f66f1c..464162c0a3 100644
--- a/t/op.eval
+++ b/t/op/eval.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.eval,v 3.0 89/10/18 15:28:53 lwall Locked $
+# $Header: eval.t,v 4.0 91/03/20 01:52:20 lwall Locked $
 
 print "1..10\n";
 
diff --git a/t/op.exec b/t/op/exec.t
index 3066f1d3ec..f3012fd2f9 100644
--- a/t/op.exec
+++ b/t/op/exec.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.exec,v 3.0 89/10/18 15:28:57 lwall Locked $
+# $Header: exec.t,v 4.0 91/03/20 01:52:25 lwall Locked $
 
 $| = 1;				# flush stdout
 print "1..8\n";
diff --git a/t/op.exp b/t/op/exp.t
index 7c558f8362..776d2634da 100644
--- a/t/op.exp
+++ b/t/op/exp.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.exp,v 3.0 89/10/18 15:29:01 lwall Locked $
+# $Header: exp.t,v 4.0 91/03/20 01:52:31 lwall Locked $
 
 print "1..6\n";
 
diff --git a/t/op.flip b/t/op/flip.t
index 19fdf86e7e..35f100cdef 100644
--- a/t/op.flip
+++ b/t/op/flip.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.flip,v 3.0 89/10/18 15:29:07 lwall Locked $
+# $Header: flip.t,v 4.0 91/03/20 01:52:36 lwall Locked $
 
 print "1..8\n";
 
diff --git a/t/op.fork b/t/op/fork.t
index 41debbc240..55696fd98f 100644
--- a/t/op.fork
+++ b/t/op/fork.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.fork,v 3.0 89/10/18 15:29:12 lwall Locked $
+# $Header: fork.t,v 4.0 91/03/20 01:52:43 lwall Locked $
 
 $| = 1;
 print "1..2\n";
diff --git a/t/op.glob b/t/op/glob.t
index c04f7f3271..1250a72542 100644
--- a/t/op.glob
+++ b/t/op/glob.t
@@ -1,19 +1,19 @@
 #!./perl
 
-# $Header: op.glob,v 3.0 89/10/18 15:29:19 lwall Locked $
+# $Header: glob.t,v 4.0 91/03/20 01:52:49 lwall Locked $
 
 print "1..4\n";
 
-@ops = <op.*>;
+@ops = <op/*>;
 $list = join(' ',@ops);
 
-chop($otherway = `echo op.*`);
+chop($otherway = `echo op/*`);
 
 print $list eq $otherway ? "ok 1\n" : "not ok 1\n$list\n$otherway\n";
 
 print $/ eq "\n" ? "ok 2\n" : "not ok 2\n";
 
-while (<jskdfjskdfj* op.* jskdjfjkosvk*>) {
+while (<jskdfjskdfj* op/* jskdjfjkosvk*>) {
     $not = "not " unless $_ eq shift @ops;
     $not = "not at all " if $/ eq "\0";
 }
diff --git a/t/op.goto b/t/op/goto.t
index 4325431aec..b76d44d3ba 100644
--- a/t/op.goto
+++ b/t/op/goto.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.goto,v 3.0 89/10/18 15:29:24 lwall Locked $
+# $Header: goto.t,v 4.0 91/03/20 01:52:52 lwall Locked $
 
 print "1..3\n";
 
diff --git a/t/op/groups.t b/t/op/groups.t
new file mode 100644
index 0000000000..73ec3a0d9a
--- /dev/null
+++ b/t/op/groups.t
@@ -0,0 +1,18 @@
+#!./perl
+
+if (! -x '/usr/ucb/groups') {
+    print "1..0\n";
+    exit 0;
+}
+
+print "1..1\n";
+
+for (split(' ', $()) {
+    next if $seen{$_}++;
+    push(@gr, (getgrgid($_))[0]); 
+} 
+$gr1 = join(' ',sort @gr);
+$gr2 = join(' ', sort split(' ',`groups`));
+#print "gr1 is <$gr1>\n";
+#print "gr2 is <$gr2>\n";
+print +($gr1 eq $gr2) ? "ok 1\n" : "not ok 1\n";
diff --git a/t/op.index b/t/op/index.t
index da822065cd..7cc4fca5ca 100644
--- a/t/op.index
+++ b/t/op/index.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.index,v 3.0.1.1 90/10/16 10:50:28 lwall Locked $
+# $Header: index.t,v 4.0 91/03/20 01:53:05 lwall Locked $
 
 print "1..20\n";
 
diff --git a/t/op.int b/t/op/int.t
index 5f021272f0..ff351aa0a3 100644
--- a/t/op.int
+++ b/t/op/int.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.int,v 3.0 89/10/18 15:29:33 lwall Locked $
+# $Header: int.t,v 4.0 91/03/20 01:53:08 lwall Locked $
 
 print "1..4\n";
 
diff --git a/t/op.join b/t/op/join.t
index f3c6ddde1e..b219af380d 100644
--- a/t/op.join
+++ b/t/op/join.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.join,v 3.0 89/10/18 15:29:38 lwall Locked $
+# $Header: join.t,v 4.0 91/03/20 01:53:17 lwall Locked $
 
 print "1..3\n";
 
diff --git a/t/op.list b/t/op/list.t
index 02eb0f4007..56fe09ca0a 100644
--- a/t/op.list
+++ b/t/op/list.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.list,v 3.0 89/10/18 15:29:44 lwall Locked $
+# $Header: list.t,v 4.0 91/03/20 01:53:24 lwall Locked $
 
 print "1..27\n";
 
diff --git a/t/op.local b/t/op/local.t
index d04a0c9d61..1f7608934f 100644
--- a/t/op.local
+++ b/t/op/local.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.local,v 3.0 89/10/18 15:29:49 lwall Locked $
+# $Header: local.t,v 4.0 91/03/20 01:53:29 lwall Locked $
 
 print "1..20\n";
 
diff --git a/t/op.magic b/t/op/magic.t
index 4b5dba838e..f027d60d42 100644
--- a/t/op.magic
+++ b/t/op/magic.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.magic,v 3.0.1.1 89/11/11 05:00:07 lwall Locked $
+# $Header: magic.t,v 4.0 91/03/20 01:53:35 lwall Locked $
 
 $| = 1;		# command buffering
 
diff --git a/t/op.mkdir b/t/op/mkdir.t
index dba5a88d0c..9186aa54e3 100644
--- a/t/op.mkdir
+++ b/t/op/mkdir.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.mkdir,v 3.0.1.4 91/01/11 18:30:00 lwall Locked $
+# $Header: mkdir.t,v 4.0 91/03/20 01:53:39 lwall Locked $
 
 print "1..7\n";
 
diff --git a/t/op.oct b/t/op/oct.t
index 7f129f6488..1a9a92ec58 100644
--- a/t/op.oct
+++ b/t/op/oct.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.oct,v 3.0 89/10/18 15:30:15 lwall Locked $
+# $Header: oct.t,v 4.0 91/03/20 01:53:43 lwall Locked $
 
 print "1..3\n";
 
diff --git a/t/op.ord b/t/op/ord.t
index 63f3580654..d95824f731 100644
--- a/t/op.ord
+++ b/t/op/ord.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.ord,v 3.0 89/10/18 15:30:29 lwall Locked $
+# $Header: ord.t,v 4.0 91/03/20 01:53:50 lwall Locked $
 
 print "1..2\n";
 
diff --git a/t/op.pack b/t/op/pack.t
index 87bf5da467..aa498c5846 100644
--- a/t/op.pack
+++ b/t/op/pack.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.pack,v 3.0.1.1 90/08/09 05:27:04 lwall Locked $
+# $Header: pack.t,v 4.0 91/03/20 01:53:57 lwall Locked $
 
 print "1..3\n";
 
diff --git a/t/op.pat b/t/op/pat.t
index d38082f593..c770391dce 100644
--- a/t/op.pat
+++ b/t/op/pat.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.pat,v 3.0 89/10/18 15:30:44 lwall Locked $
+# $Header: pat.t,v 4.0 91/03/20 01:54:01 lwall Locked $
 
 print "1..43\n";
 
diff --git a/t/op.push b/t/op/push.t
index ebadf5f6f4..721b63f2f7 100644
--- a/t/op.push
+++ b/t/op/push.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.push,v 3.0.1.1 90/03/12 17:04:27 lwall Locked $
+# $Header: push.t,v 4.0 91/03/20 01:54:07 lwall Locked $
 
 @tests = split(/\n/, <<EOF);
 0 3,			0 1 2,		3 4 5 6 7
diff --git a/t/op.range b/t/op/range.t
index d581b433cf..9ab7892636 100644
--- a/t/op.range
+++ b/t/op/range.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.range,v 3.0.1.1 90/03/27 16:27:58 lwall Locked $
+# $Header: range.t,v 4.0 91/03/20 01:54:11 lwall Locked $
 
 print "1..8\n";
 
diff --git a/t/re_tests b/t/op/re_tests
index 3a6d62a187..01d9940216 100644
--- a/t/re_tests
+++ b/t/op/re_tests
@@ -120,7 +120,10 @@ a[bcd]+dcdcde	adcdcde	n	-	-
 (bc+d$|ef*g.|h?i(j|k))	effg	n	-	-
 (bc+d$|ef*g.|h?i(j|k))	bcdd	n	-	-
 (bc+d$|ef*g.|h?i(j|k))	reffgz	y	$&-$1-$2	effgz-effgz-
-((((((((((a))))))))))	-	c	-	-
+((((((((((a))))))))))	a	y	$10	a
+((((((((((a))))))))))\10	aa	y	$&	aa
+((((((((((a))))))))))\41	aa	n	-	-
+((((((((((a))))))))))\41	a!	y	$&	a!
 (((((((((a)))))))))	a	y	$&	a
 multiple words of text	uh-uh	n	-	-
 multiple words	multiple words, yeah	y	$&	multiple words
diff --git a/t/op.read b/t/op/read.t
index b219917a68..019324ce33 100644
--- a/t/op.read
+++ b/t/op/read.t
@@ -1,11 +1,11 @@
 #!./perl
 
-# $Header: op.read,v 3.0 89/10/18 15:30:58 lwall Locked $
+# $Header: read.t,v 4.0 91/03/20 01:54:16 lwall Locked $
 
 print "1..4\n";
 
 
-open(FOO,'op.read') || open(FOO,'t/op.read') || die "Can't open op.read";
+open(FOO,'op/read.t') || open(FOO,'t/op/read.t') || die "Can't open op.read";
 seek(FOO,4,0);
 $got = read(FOO,$buf,4);
 
diff --git a/t/op.regexp b/t/op/regexp.t
index fc7d8b829c..92f084a7f0 100644
--- a/t/op.regexp
+++ b/t/op/regexp.t
@@ -1,14 +1,16 @@
 #!./perl
 
-# $Header: op.regexp,v 3.0 89/10/18 15:31:02 lwall Locked $
+# $Header: regexp.t,v 4.0 91/03/20 01:54:22 lwall Locked $
 
-open(TESTS,'re_tests') || open(TESTS,'t/re_tests') || die "Can't open re_tests";
+open(TESTS,'op/re_tests') || open(TESTS,'t/op/re_tests')
+    || die "Can't open re_tests";
 while (<TESTS>) { }
 $numtests = $.;
 close(TESTS);
 
 print "1..$numtests\n";
-open(TESTS,'re_tests') || open(TESTS,'t/re_tests') || die "Can't open re_tests";
+open(TESTS,'op/re_tests') || open(TESTS,'t/op/re_tests')
+    || die "Can't open re_tests";
 while (<TESTS>) {
     ($pat, $subject, $result, $repl, $expect) = split(/[\t\n]/,$_);
     $input = join(':',$pat,$subject,$result,$repl,$expect);
diff --git a/t/op.repeat b/t/op/repeat.t
index aa4a52c805..a494b99f96 100644
--- a/t/op.repeat
+++ b/t/op/repeat.t
@@ -1,8 +1,8 @@
 #!./perl
 
-# $Header: op.repeat,v 3.0 89/10/18 15:31:07 lwall Locked $
+# $Header: repeat.t,v 4.0 91/03/20 01:54:26 lwall Locked $
 
-print "1..11\n";
+print "1..19\n";
 
 # compile time
 
@@ -30,3 +30,13 @@ if ($a eq 'xyzxyz') {print "ok 10\n";} else {print "not ok 10\n";}
 $a x= 0;
 if ($a eq '') {print "ok 11\n";} else {print "not ok 11\n";}
 
+@x = (1,2,3);
+
+print join('', @x x 4) eq '3333' ? "ok 12\n" : "not ok 12\n";
+print join('', (@x) x 4) eq '123123123123' ? "ok 13\n" : "not ok 13\n";
+print join('', (@x,()) x 4) eq '123123123123' ? "ok 14\n" : "not ok 14\n";
+print join('', (@x,1) x 4) eq '1231123112311231' ? "ok 15\n" : "not ok 15\n";
+print join(':', () x 4) eq '' ? "ok 16\n" : "not ok 16\n";
+print join(':', (9) x 4) eq '9:9:9:9' ? "ok 17\n" : "not ok 17\n";
+print join(':', (9,9) x 4) eq '9:9:9:9:9:9:9:9' ? "ok 18\n" : "not ok 18\n";
+print join('', (split(//,"123")) x 2) eq '123123' ? "ok 19\n" : "not ok 19\n";
diff --git a/t/op.s b/t/op/s.t
index c5d85611fa..323d374809 100644
--- a/t/op.s
+++ b/t/op/s.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.s,v 3.0.1.2 90/10/16 10:51:50 lwall Locked $
+# $Header: s.t,v 4.0 91/03/20 01:54:30 lwall Locked $
 
 print "1..51\n";
 
diff --git a/t/op.sleep b/t/op/sleep.t
index 99933006b9..c26d397d2f 100644
--- a/t/op.sleep
+++ b/t/op/sleep.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.sleep,v 3.0.1.1 90/03/14 12:31:39 lwall Locked $
+# $Header: sleep.t,v 4.0 91/03/20 01:54:34 lwall Locked $
 
 print "1..1\n";
 
diff --git a/t/op.sort b/t/op/sort.t
index 424321529b..b1b2202d2b 100644
--- a/t/op.sort
+++ b/t/op/sort.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.sort,v 3.0.1.1 89/10/26 23:25:37 lwall Locked $
+# $Header: sort.t,v 4.0 91/03/20 01:54:38 lwall Locked $
 
 print "1..8\n";
 
diff --git a/t/op.split b/t/op/split.t
index c42b98b253..34327cbd42 100644
--- a/t/op.split
+++ b/t/op/split.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.split,v 3.0.1.1 89/11/11 05:01:44 lwall Locked $
+# $Header: split.t,v 4.0 91/03/20 01:54:42 lwall Locked $
 
 print "1..12\n";
 
diff --git a/t/op.sprintf b/t/op/sprintf.t
index a00044f21d..6155612aeb 100644
--- a/t/op.sprintf
+++ b/t/op/sprintf.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.sprintf,v 3.0 89/10/18 15:31:28 lwall Locked $
+# $Header: sprintf.t,v 4.0 91/03/20 01:54:46 lwall Locked $
 
 print "1..1\n";
 
diff --git a/t/op.stat b/t/op/stat.t
index 5a6f63aefe..8ba8e54a5d 100644
--- a/t/op.stat
+++ b/t/op/stat.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.stat,v 3.0.1.5 90/10/16 10:55:42 lwall Locked $
+# $Header: stat.t,v 4.0 91/03/20 01:54:55 lwall Locked $
 
 print "1..56\n";
 
@@ -42,12 +42,15 @@ if (! -s 'Op.stat.tmp') {print "ok 6\n";} else {print "not ok 6\n";}
 if (! -z 'Op.stat.tmp') {print "ok 7\n";} else {print "not ok 7\n";}
 if (-s 'Op.stat.tmp') {print "ok 8\n";} else {print "not ok 8\n";}
 
-chmod 0,'Op.stat.tmp';
+unlink 'Op.stat.tmp';
 $olduid = $>;		# can't test -r if uid == 0
+`echo hi >Op.stat.tmp`;
+chmod 0,'Op.stat.tmp';
 eval '$> = 1;';		# so switch uid (may not be implemented)
 if (!$> || ! -r 'Op.stat.tmp') {print "ok 9\n";} else {print "not ok 9\n";}
 if (!$> || ! -w 'Op.stat.tmp') {print "ok 10\n";} else {print "not ok 10\n";}
 eval '$> = $olduid;';		# switch uid back (may not be implemented)
+print "# olduid=$olduid, newuid=$>\n" unless ($> == $olduid);
 if (! -x 'Op.stat.tmp') {print "ok 11\n";} else {print "not ok 11\n";}
 
 foreach ((12,13,14,15,16,17)) {
@@ -95,7 +98,7 @@ if (! -b '.') {print "ok 34\n";} else {print "not ok 34\n";}
 
 $cnt = $uid = 0;
 
-die "Can't run op.stat test 35 without pwd working" unless $cwd;
+die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
 chdir '/usr/bin' || die "Can't cd to /usr/bin";
 while (defined($_ = <*>)) {
     $cnt++;
@@ -121,13 +124,13 @@ if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
 
 # These aren't strictly "stat" calls, but so what?
 
-if (-T 'op.stat') {print "ok 41\n";} else {print "not ok 41\n";}
-if (! -B 'op.stat') {print "ok 42\n";} else {print "not ok 42\n";}
+if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
+if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
 
 if (-B './perl') {print "ok 43\n";} else {print "not ok 43\n";}
 if (! -T './perl') {print "ok 44\n";} else {print "not ok 44\n";}
 
-open(foo,'op.stat');
+open(foo,'op/stat.t');
 if (-T foo) {print "ok 45\n";} else {print "not ok 45\n";}
 if (! -B foo) {print "ok 46\n";} else {print "not ok 46\n";}
 $_ = <foo>;
@@ -136,7 +139,7 @@ if (-T foo) {print "ok 48\n";} else {print "not ok 48\n";}
 if (! -B foo) {print "ok 49\n";} else {print "not ok 49\n";}
 close(foo);
 
-open(foo,'op.stat');
+open(foo,'op/stat.t');
 $_ = <foo>;
 if (/perl/) {print "ok 50\n";} else {print "not ok 50\n";}
 if (-T foo) {print "ok 51\n";} else {print "not ok 51\n";}
diff --git a/t/op.study b/t/op/study.t
index c62afb3052..01e33fa613 100644
--- a/t/op.study
+++ b/t/op/study.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.study,v 3.0 89/10/18 15:31:38 lwall Locked $
+# $Header: study.t,v 4.0 91/03/20 01:54:59 lwall Locked $
 
 print "1..24\n";
 
diff --git a/t/op.substr b/t/op/substr.t
index bbe2c046b0..12ad531c49 100644
--- a/t/op.substr
+++ b/t/op/substr.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.substr,v 3.0.1.1 90/10/16 10:56:35 lwall Locked $
+# $Header: substr.t,v 4.0 91/03/20 01:55:05 lwall Locked $
 
 print "1..22\n";
 
diff --git a/t/op.time b/t/op/time.t
index d735564412..28635219fe 100644
--- a/t/op.time
+++ b/t/op/time.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.time,v 3.0 89/10/18 15:31:56 lwall Locked $
+# $Header: time.t,v 4.0 91/03/20 01:55:09 lwall Locked $
 
 print "1..5\n";
 
diff --git a/t/op.undef b/t/op/undef.t
index 0226ab7f3c..fc73cf85d5 100644
--- a/t/op.undef
+++ b/t/op/undef.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.undef,v 3.0 89/10/18 15:32:01 lwall Locked $
+# $Header: undef.t,v 4.0 91/03/20 01:55:16 lwall Locked $
 
 print "1..21\n";
 
@@ -43,7 +43,7 @@ print defined(@ary) ? "not ok 15\n" : "ok 15\n";
 undef %ary;
 print defined(%ary) ? "not ok 16\n" : "ok 16\n";
 @ary = (1);
-print defined @ary ? "ok 17\n" : "not ok 18\n";
+print defined @ary ? "ok 17\n" : "not ok 17\n";
 %ary = (1,1);
 print defined %ary ? "ok 18\n" : "not ok 18\n";
 
diff --git a/t/op.unshift b/t/op/unshift.t
index 0612c2c2a5..fec68e183b 100644
--- a/t/op.unshift
+++ b/t/op/unshift.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.unshift,v 3.0 89/10/18 15:32:06 lwall Locked $
+# $Header: unshift.t,v 4.0 91/03/20 01:55:21 lwall Locked $
 
 print "1..2\n";
 
diff --git a/t/op.vec b/t/op/vec.t
index bfc7d76342..e8fe018ba8 100644
--- a/t/op.vec
+++ b/t/op/vec.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.vec,v 3.0 89/10/18 15:32:11 lwall Locked $
+# $Header: vec.t,v 4.0 91/03/20 01:55:28 lwall Locked $
 
 print "1..13\n";
 
diff --git a/t/op.write b/t/op/write.t
index ef806da5b1..e51a09088c 100644
--- a/t/op.write
+++ b/t/op/write.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: op.write,v 3.0.1.1 90/03/27 16:29:00 lwall Locked $
+# $Header: write.t,v 4.0 91/03/20 01:55:34 lwall Locked $
 
 print "1..3\n";