- if (defined($scanlib::maintainer{$p})) {
- $_ = $scanlib::maintainer{$p};
- ($name,$email) = m/(.*) <([^>]*)>/;
- print "$name <<a href=\"http://bugs.debian.org/$email\">$email</A>>\n";
+ if (exists($scanlib::maintainer{$p}) && $scanlib::maintainer{$p} ne '') {
+ if ($scanlib::maintainer{$p} =~ /(.*) <([^>]*)>/) {
+ ($name,$email) = ($1,$2);
+ } elsif ($scanlib::maintainer{$p} =~ /<(.*) \((.*)\)>/) {
+ ($name,$email) = ($1,$2);
+ } elsif ($scanlib::maintainer{$p} =~ /<(.*)>/) {
+ $name = $email = $1;
+ }
+ if (defined($name)) {
+ print "$name <<a href=\"http://bugs.debian.org/$email\">$email</A>>\n";
+ } else {
+ print "$scanlib::maintainer{$p}\n";
+ }