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.

1 files changed, 0 insertions, 26 deletions

diff --git a/t/op.flip b/t/op.flip
deleted file mode 100644
index 19fdf86e7e..0000000000
--- a/t/op.flip
+++ /dev/null
@@ -1,26 +0,0 @@
-#!./perl
-
-# $Header: op.flip,v 3.0 89/10/18 15:29:07 lwall Locked $
-
-print "1..8\n";
-
-@a = (1,2,3,4,5,6,7,8,9,10,11,12);
-
-while ($_ = shift(a)) {
-    if ($x = /4/../8/) { $z = $x; print "ok ", $x + 0, "\n"; }
-    $y .= /1/../2/;
-}
-
-if ($z eq '5E0') {print "ok 6\n";} else {print "not ok 6\n";}
-
-if ($y eq '12E0123E0') {print "ok 7\n";} else {print "not ok 7\n";}
-
-@a = ('a','b','c','d','e','f','g');
-
-open(of,'../Makefile');
-while (<of>) {
-    (3 .. 5) && $foo .= $_;
-}
-$x = ($foo =~ y/\n/\n/);
-
-if ($x eq 3) {print "ok 8\n";} else {print "not ok 8 $x:$foo:\n";}