Update Compress Modules to version 2.002

[p5sagit/p5-mst-13.2.git] / t / cmd / switch.t

diff --git a/t/cmd/switch.t b/t/cmd/switch.t
old mode 100644 (file)
new mode 100755 (executable)
index 2af2c9e..82f417f
--- a/t/cmd/switch.t
+++ b/t/cmd/switch.t
@@ -1,7 +1,5 @@
 #!./perl
 
-# $Header: switch.t,v 4.0 91/03/20 01:49:44 lwall Locked $
-
 print "1..18\n";
 
 sub foo1 {
@@ -40,7 +38,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";