From b8851fcc53cbe24fd20b090f26dd149e353f6174 Mon Sep 17 00:00:00 2001
From: afresh1 <afresh1@openbsd.org>
Date: Sun, 5 Feb 2017 00:31:51 +0000
Subject: Fix merge issues, remove excess files - match perl-5.24.1 dist

---
 .../Module-Build/lib/Module/Build/PodParser.pm     | 65 ----------------------
 1 file changed, 65 deletions(-)
 delete mode 100644 gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/PodParser.pm

(limited to 'gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/PodParser.pm')

diff --git a/gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/PodParser.pm b/gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/PodParser.pm
deleted file mode 100644
index c7e83a837d3..00000000000
--- a/gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/PodParser.pm
+++ /dev/null
@@ -1,65 +0,0 @@
-package Module::Build::PodParser;
-
-use strict;
-use vars qw($VERSION);
-$VERSION = '0.4205';
-$VERSION = eval $VERSION;
-use vars qw(@ISA);
-
-sub new {
-  # Perl is so fun.
-  my $package = shift;
-
-  my $self;
-  @ISA = ();
-  $self = bless {have_pod_parser => 0, @_}, $package;
-
-  unless ($self->{fh}) {
-    die "No 'file' or 'fh' parameter given" unless $self->{file};
-    open($self->{fh}, '<', $self->{file}) or die "Couldn't open $self->{file}: $!";
-  }
-
-  return $self;
-}
-
-sub parse_from_filehandle {
-  my ($self, $fh) = @_;
-
-  local $_;
-  while (<$fh>) {
-    next unless /^=(?!cut)/ .. /^=cut/;  # in POD
-    # Accept Name - abstract or C<Name> - abstract
-    last if ($self->{abstract}) = /^ (?: [a-z_0-9:]+ | [BCIF] < [a-z_0-9:]+ > ) \s+ - \s+ (.*\S) /ix;
-  }
-
-  my @author;
-  while (<$fh>) {
-    next unless /^=head1\s+AUTHORS?/i ... /^=/;
-    next if /^=/;
-    push @author, $_ if /\@/;
-  }
-  return unless @author;
-  s/^\s+|\s+$//g foreach @author;
-
-  $self->{author} = \@author;
-
-  return;
-}
-
-sub get_abstract {
-  my $self = shift;
-  return $self->{abstract} if defined $self->{abstract};
-
-  $self->parse_from_filehandle($self->{fh});
-
-  return $self->{abstract};
-}
-
-sub get_author {
-  my $self = shift;
-  return $self->{author} if defined $self->{author};
-
-  $self->parse_from_filehandle($self->{fh});
-
-  return $self->{author} || [];
-}
-- 
cgit v1.2.3-59-g8ed1b