Fix merge issues, remove excess files - match perl-5.24.1 dist

1 files changed, 0 insertions, 137 deletions

diff --git a/gnu/usr.bin/perl/cpan/Module-Build/t/pod_parser.t b/gnu/usr.bin/perl/cpan/Module-Build/t/pod_parser.t
deleted file mode 100755
index d4ebcdc91d2..00000000000
--- a/gnu/usr.bin/perl/cpan/Module-Build/t/pod_parser.t
+++ /dev/null
@@ -1,137 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use lib 't/lib';
-use MBTest tests => 14;
-
-blib_load('Module::Build::PodParser');
-
-#########################
-
-{
-  package IO::StringBased;
-
-  sub TIEHANDLE {
-    my ($class, $string) = @_;
-    return bless {
-		  data => [ map "$_\n", split /\n/, $string],
-		 }, $class;
-  }
-
-  sub READLINE {
-    shift @{ shift()->{data} };
-  }
-}
-
-local *FH;
-tie *FH, 'IO::StringBased', <<'EOF';
-=head1 NAME
-
-Foo::Bar - Perl extension for blah blah blah
-
-=head1 AUTHOR
-
-C<Foo::Bar> was written by Engelbert Humperdinck I<E<lt>eh@example.comE<gt>> in 2004.
-
-Home page: http://example.com/~eh/
-
-=cut
-EOF
-
-
-my $pp = Module::Build::PodParser->new(fh => \*FH);
-ok $pp, 'object created';
-
-is $pp->get_author->[0], 'C<Foo::Bar> was written by Engelbert Humperdinck I<E<lt>eh@example.comE<gt>> in 2004.', 'author';
-is $pp->get_abstract, 'Perl extension for blah blah blah', 'abstract';
-
-
-{
-  # Try again without a valid author spec
-  untie *FH;
-  tie *FH, 'IO::StringBased', <<'EOF';
-=head1 NAME
-
-Foo::Bar - Perl extension for blah blah blah
-
-=cut
-EOF
-
-  my $pp = Module::Build::PodParser->new(fh => \*FH);
-  ok $pp, 'object created';
-
-  is_deeply $pp->get_author, [], 'author';
-  is $pp->get_abstract, 'Perl extension for blah blah blah', 'abstract';
-}
-
-
-{
-    # Try again with mixed-case =head1s.
-  untie *FH;
-  tie *FH, 'IO::StringBased', <<'EOF';
-=head1 Name
-
-Foo::Bar - Perl extension for blah blah blah
-
-=head1 Author
-
-C<Foo::Bar> was written by Engelbert Humperdinck I<E<lt>eh@example.comE<gt>> in 2004.
-
-Home page: http://example.com/~eh/
-
-=cut
-EOF
-
-  my $pp = Module::Build::PodParser->new(fh => \*FH);
-  ok $pp, 'object created';
-
-  is $pp->get_author->[0], 'C<Foo::Bar> was written by Engelbert Humperdinck I<E<lt>eh@example.comE<gt>> in 2004.', 'author';
-  is $pp->get_abstract, 'Perl extension for blah blah blah', 'abstract';
-}
-
-
-{
-    # Now with C<Module::Name>
-  untie *FH;
-  tie *FH, 'IO::StringBased', <<'EOF';
-=head1 Name
-
-C<Foo::Bar> - Perl extension for blah blah blah
-
-=head1 Author
-
-C<Foo::Bar> was written by Engelbert Humperdinck I<E<lt>eh@example.comE<gt>> in 2004.
-
-Home page: http://example.com/~eh/
-
-=cut
-EOF
-
-  my $pp = Module::Build::PodParser->new(fh => \*FH);
-  ok $pp, 'object created';
-
-  is $pp->get_author->[0], 'C<Foo::Bar> was written by Engelbert Humperdinck I<E<lt>eh@example.comE<gt>> in 2004.', 'author';
-  is $pp->get_abstract, 'Perl extension for blah blah blah', 'abstract';
-}
-
-{
-local *FH;
-tie *FH, 'IO::StringBased', <<'EOF';
-=head1 NAME
-
-Foo_Bar - Perl extension for eating pie
-
-=head1 AUTHOR
-
-C<Foo_Bar> was written by Engelbert Humperdinck I<E<lt>eh@example.comE<gt>> in 2004.
-
-Home page: http://example.com/~eh/
-
-=cut
-EOF
-
-
-  my $pp = Module::Build::PodParser->new(fh => \*FH);
-  ok $pp, 'object created';
-  is $pp->get_abstract, 'Perl extension for eating pie', 'abstract';
-}