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

1 files changed, 0 insertions, 43 deletions

diff --git a/contrib/perl5/t/op/die.t b/contrib/perl5/t/op/die.t
deleted file mode 100755
index cf4f8b0..0000000
--- a/contrib/perl5/t/op/die.t
+++ /dev/null
@@ -1,43 +0,0 @@
-#!./perl
-
-print "1..10\n";
-
-$SIG{__DIE__} = sub { print ref($_[0]) ? ("ok ",$_[0]->[0]++,"\n") : @_ } ;
-
-$err = "#[\000]\nok 1\n";
-eval {
-    die $err;
-};
-
-print "not " unless $@ eq $err;
-print "ok 2\n";
-
-$x = [3];
-eval { die $x; };
-
-print "not " unless $x->[0] == 4;
-print "ok 4\n";
-
-eval {
-    eval {
-	die [ 5 ];
-    };
-    die if $@;
-};
-
-eval {
-    eval {
-	die bless [ 7 ], "Error";
-    };
-    die if $@;
-};
-
-print "not " unless ref($@) eq "Out";
-print "ok 10\n";
-
-package Error;
-
-sub PROPAGATE {
-    print "ok ",$_[0]->[0]++,"\n";
-    bless [$_[0]->[0]], "Out";
-}