| Subject: | Problem extracting abstract from POD |
I have a module with the following NAME section:
=head1 NAME
fdstools.pm - Fedora Directory Server Toolkit
A suite of LDAP user and group management tools
---
The PodParser does not properly extract the abstract from it. The
following fixes:
--- Module-Build-0.3800/lib/Module/Build/PodParser.pm.abstract
2011-03-05 13:15:41.000000000 -0700
+++ Module-Build-0.3800/lib/Module/Build/PodParser.pm 2011-03-17
10:26:00.971775280 -0600
@@ -94,7 +94,7 @@
$text =~ s/\s+$//;
if (uc $self->{_head} eq 'NAME') {
my ($name, $abstract) = split( /\s+-\s+/, $text, 2 );
- $self->{abstract} = $abstract;
+ $self->{abstract} = $abstract if defined($abstract);
} elsif ($self->{_head} =~ /^AUTHORS?$/i) {
push @{$self->{author}}, $text if $text =~ /\@/;
}