1 files changed, 0 insertions, 29 deletions
diff --git a/gnu/usr.bin/perl/lib/Test/Simple/t/ok_obj.t b/gnu/usr.bin/perl/lib/Test/Simple/t/ok_obj.t
deleted file mode 100644
index 8678dbff8d9..00000000000
--- a/gnu/usr.bin/perl/lib/Test/Simple/t/ok_obj.t
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/usr/bin/perl -w
-
-# Testing to make sure Test::Builder doesn't accidentally store objects
-# passed in as test arguments.
-
-BEGIN {
-    if( $ENV{PERL_CORE} ) {
-        chdir 't';
-        @INC = '../lib';
-    }
-}
-
-use Test::More tests => 4;
-
-package Foo;
-my $destroyed = 0;
-sub new { bless {}, shift }
-
-sub DESTROY {
-    $destroyed++;
-}
-
-package main;
-
-for (1..3) {
-    ok(my $foo = Foo->new, 'created Foo object');
-}
-is $destroyed, 3, "DESTROY called 3 times";
-