Perl is no longer in base. Long live the port!

1 files changed, 0 insertions, 26 deletions

diff --git a/contrib/perl5/t/op/fh.t b/contrib/perl5/t/op/fh.t
deleted file mode 100755
index 86e405a..0000000
--- a/contrib/perl5/t/op/fh.t
+++ /dev/null
@@ -1,26 +0,0 @@
-#!./perl
-
-print "1..5\n";
-
-my $test = 0;
-
-# symbolic filehandles should only result in glob entries with FH constructors
-
-$|=1;
-my $a = "SYM000";
-print "not " if defined(fileno($a)) or defined *{$a};
-++$test; print "ok $test\n";
-
-select select $a;
-print "not " unless defined *{$a};
-++$test; print "ok $test\n";
-
-$a++;
-print "not " if close $a or defined *{$a};
-++$test; print "ok $test\n";
-
-print "not " unless open($a, ">&STDOUT") and defined *{$a};
-++$test; print $a "ok $test\n";
-
-print "not " unless close $a;
-++$test; print $a "not "; print "ok $test\n";