perl 5.0 alpha 2perl-5a2

[editor's note: from history.perl.org.  The sparc executables
originally included in the distribution are not in this commit.]

6 files changed, 8 insertions, 8 deletions

diff --git a/t/cmd/elsif.t b/t/cmd/elsif.t
index 975acef4f7..e42fa61137 100644..100755
--- a/t/cmd/elsif.t
+++ b/t/cmd/elsif.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: elsif.t,v 4.0 91/03/20 01:49:21 lwall Locked $
+# $RCSfile: elsif.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:08 $
 
 sub foo {
     if ($_[0] == 1) {
diff --git a/t/cmd/for.t b/t/cmd/for.t
index 16745b5b28..e45f05040b 100644..100755
--- a/t/cmd/for.t
+++ b/t/cmd/for.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: for.t,v 4.0 91/03/20 01:49:26 lwall Locked $
+# $RCSfile: for.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:09 $
 
 print "1..7\n";
 
diff --git a/t/cmd/mod.t b/t/cmd/mod.t
index 787aade307..e1327edf6c 100644..100755
--- a/t/cmd/mod.t
+++ b/t/cmd/mod.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: mod.t,v 4.0 91/03/20 01:49:33 lwall Locked $
+# $RCSfile: mod.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:11 $
 
 print "1..7\n";
 
@@ -20,7 +20,7 @@ do {$x[$x] = $x;} while ($x++) < 10;
 if (join(' ',@x) eq '0 1 2 3 4 5 6 7 8 9 10') {
 	print "ok 5\n";
 } else {
-	print "not ok 5\n";
+	print "not ok 5 @x\n";
 }
 
 $x = 15;
diff --git a/t/cmd/subval.t b/t/cmd/subval.t
index 505025f7f4..90345f2c65 100644..100755
--- a/t/cmd/subval.t
+++ b/t/cmd/subval.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $RCSfile: subval.t,v $$Revision: 4.0.1.1 $$Date: 91/11/05 18:42:31 $
+# $RCSfile: subval.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:13 $
 
 sub foo1 {
     'true1';
diff --git a/t/cmd/switch.t b/t/cmd/switch.t
index 2af2c9e971..faa5de470f 100644..100755
--- a/t/cmd/switch.t
+++ b/t/cmd/switch.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: switch.t,v 4.0 91/03/20 01:49:44 lwall Locked $
+# $RCSfile: switch.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:14 $
 
 print "1..18\n";
 
@@ -40,7 +40,7 @@ sub foo2 {
     return $_;
 }
 
-print do foo2(0) == 20 ? "ok 7\n" : "not ok 1\n";
+print do foo2(0) == 20 ? "ok 7\n" : "not ok 7\n";
 print do foo2(1) == 1 ? "ok 8\n" : "not ok 8\n";
 print do foo2(2) == 2 ? "ok 9\n" : "not ok 9\n";
 print do foo2(3) == 3 ? "ok 10\n" : "not ok 10\n";
diff --git a/t/cmd/while.t b/t/cmd/while.t
index 9876095c1c..f42174eeca 100644..100755
--- a/t/cmd/while.t
+++ b/t/cmd/while.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: while.t,v 4.0 91/03/20 01:49:51 lwall Locked $
+# $RCSfile: while.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:15 $
 
 print "1..10\n";