Handle undefined licenses gracefully

[perl/modules/CPANPLUS-Dist-Gentoo.git] / lib / CPANPLUS / Dist / Gentoo / Maps.pm

diff --git a/lib/CPANPLUS/Dist/Gentoo/Maps.pm b/lib/CPANPLUS/Dist/Gentoo/Maps.pm
index 0cb1af2809eeb0b15f3c94321af2b4b0df75c9ac..9c91f8525cda2e3776f0d44bfe2cb6876a7386e3 100644 (file)
--- a/lib/CPANPLUS/Dist/Gentoo/Maps.pm
+++ b/lib/CPANPLUS/Dist/Gentoo/Maps.pm
@@ -67,7 +67,11 @@ my %licenses = (
 
 sub license_c2g {
  my %seen;
- grep !$seen{$_}++, map @{$licenses{+lc} || []}, @_;
+
+ grep !$seen{$_}++,
+  map @{$licenses{+lc} || []},
+   grep defined,
+    @_;
 }
 
 =head2 C<version_c2g $name, $version>
@@ -197,6 +201,7 @@ $version_mismatch{$_} = $insert_dot_at_all_2 for qw/
  Curses-UI
  DBD-mysql
  Email-MessageID
+ Exception-Base
  ExtUtils-CBuilder
  ExtUtils-ParseXS
  FileHandle-Unget
@@ -363,6 +368,7 @@ Locale-Maketext-Lexicon locale-maketext-lexicon
 Log-Dispatch            log-dispatch
 Math-Pari               math-pari
 Module-Info             module-info
+MogileFS-Server         mogilefs-server
 NTLM                    Authen-NTLM
 Net-Ping                net-ping
 Net-SFTP                net-sftp