| Subject: | can't parse F<E<lt>author@example.comE<gt>> |
cpan2rpm v2.028 doesn't know how to parse author from POD that looks
like this (taken from Storable.pm):
=head1 AUTHOR
Storable was written by Raphael Manfredi F<E<lt>Raphael_Manfredi@pobox.comE<gt>>
Maintenance is now done by the perl5-porters F<E<lt>perl5-porters@perl.orgE<gt>>
A proposed patch is attached.
HTH
Sherwin Daganato
diff -Naur cpan2rpm-2.028.orig/cpan2rpm cpan2rpm-2.028/cpan2rpm
--- cpan2rpm-2.028.orig/cpan2rpm 2005-06-18 05:06:54.000000000 +0000
+++ cpan2rpm-2.028/cpan2rpm 2006-01-07 15:33:56.000000000 +0000
@@ -533,7 +533,7 @@
$info->{author} ||= $meta{AUTHOR} || "";
if (!$info->{author} && $from =~ /=head\d\s+AUTHORS?\s+(.*?)=/is) {
- local $_ = $1;
+ local $_ = $pod->interpolate($1);
my ($em) = /(\S+(@|\sat\s)\S+)/is;
$em ||= "";
$em =~ s/\.$//; # e.g. Erick Calder e@arix.com.