From 91f110e064cd7c194e59e019b83bb7496c1c84d4 Mon Sep 17 00:00:00 2001
From: afresh1 <afresh1@openbsd.org>
Date: Mon, 24 Mar 2014 14:58:42 +0000
Subject: Import perl-5.18.2

OK espie@ sthen@ deraadt@
---
 gnu/usr.bin/perl/cpan/Module-Build/lib/Module/Build/PodParser.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(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
index 8230192056f..6605fd47272 100644
--- 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
@@ -2,7 +2,7 @@ package Module::Build::PodParser;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.39_01';
+$VERSION = '0.4003';
 $VERSION = eval $VERSION;
 use vars qw(@ISA);
 
@@ -28,7 +28,8 @@ sub parse_from_filehandle {
   local $_;
   while (<$fh>) {
     next unless /^=(?!cut)/ .. /^=cut/;  # in POD
-    last if ($self->{abstract}) = /^  (?:  [a-z:]+  \s+ - \s+  )  (.*\S)  /ix;
+    # Accept Name - abstract or C<Name> - abstract
+    last if ($self->{abstract}) = /^ (?: [a-z0-9:]+ | [BCIF] < [a-z0-9:]+ > ) \s+ - \s+ (.*\S) /ix;
   }
 
   my @author;
-- 
cgit v1.2.3-59-g8ed1b