Merge in perl 5.10.1

1 files changed, 0 insertions, 34 deletions

diff --git a/gnu/usr.bin/perl/t/Module_Pluggable/10innerpack_noinner.t b/gnu/usr.bin/perl/t/Module_Pluggable/10innerpack_noinner.t
deleted file mode 100644
index 5d40cd5cff3..00000000000
--- a/gnu/usr.bin/perl/t/Module_Pluggable/10innerpack_noinner.t
+++ /dev/null
@@ -1,34 +0,0 @@
-#!perl -w
-
-use strict;
-use FindBin;
-use lib "$FindBin::Bin/lib";
-use Test::More tests => 3;
-
-
-
-my $t = InnerTest->new();
-
-my %plugins = map { $_ => 1 } $t->plugins;
-
-ok(keys %plugins, "Got some plugins");
-ok($plugins{'InnerTest::Plugin::Foo'}, "Got Foo");
-ok(!$plugins{'InnerTest::Plugin::Bar'}, "Didn't get Bar - the inner package");
-
-
-
-package InnerTest;
-use strict;
-use Module::Pluggable require => 1, inner => 0;
-use base qw(Module::Pluggable);
-
-
-sub new {
-    my $class = shift;
-    return bless {}, $class;
-
-}
-
-
-1;
-