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

1 files changed, 0 insertions, 36 deletions

diff --git a/contrib/perl5/t/io/iprefix.t b/contrib/perl5/t/io/iprefix.t
deleted file mode 100755
index 10a5c5f..0000000
--- a/contrib/perl5/t/io/iprefix.t
+++ /dev/null
@@ -1,36 +0,0 @@
-#!./perl
-
-$^I = 'bak*';
-
-# Modified from the original inplace.t to test adding prefixes
-
-print "1..2\n";
-
-@ARGV = ('.a','.b','.c');
-if ($^O eq 'MSWin32') {
-  $CAT = '.\perl -e "print<>"';
-  `.\\perl -le "print 'foo'" > .a`;
-  `.\\perl -le "print 'foo'" > .b`;
-  `.\\perl -le "print 'foo'" > .c`;
-}
-elsif ($^O eq 'VMS') {
-  $CAT = 'MCR []perl. -e "print<>"';
-  `MCR []perl. -le "print 'foo'" > ./.a`;
-  `MCR []perl. -le "print 'foo'" > ./.b`;
-  `MCR []perl. -le "print 'foo'" > ./.c`;
-}
-else {
-  $CAT = 'cat';
-  `echo foo | tee .a .b .c`;
-}
-while (<>) {
-    s/foo/bar/;
-}
-continue {
-    print;
-}
-
-if (`$CAT .a .b .c` eq "bar\nbar\nbar\n") {print "ok 1\n";} else {print "not ok 1\n";}
-if (`$CAT bak.a bak.b bak.c` eq "foo\nfoo\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
-
-unlink '.a', '.b', '.c', 'bak.a', 'bak.b', 'bak.c';