[Module-build-checkins] Module-Build/lib/Module/Build PodParser.pm,1.6,1.7
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-09-09 18:35:35
|
Update of /cvsroot/module-build/Module-Build/lib/Module/Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28735/lib/Module/Build Modified Files: PodParser.pm Log Message: Allow AUTHORS for the author list Index: PodParser.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/PodParser.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- PodParser.pm 8 Jul 2005 01:29:22 -0000 1.6 +++ PodParser.pm 9 Sep 2005 18:35:27 -0000 1.7 @@ -39,7 +39,7 @@ my @author; while (<$fh>) { - next unless /^=head1\s+AUTHOR/ ... /^=/; + next unless /^=head1\s+AUTHORS?/ ... /^=/; next if /^=/; push @author, $_ if /\@/; } @@ -93,7 +93,7 @@ if ($self->{_head} eq 'NAME') { my ($name, $abstract) = split( /\s+-\s+/, $text, 2 ); $self->{abstract} = $abstract; - } elsif ($self->{_head} eq 'AUTHOR') { + } elsif ($self->{_head} =~ /^AUTHORS?$/) { push @{$self->{author}}, $text if $text =~ /\@/; } } |