| Subject: | guess_license_from_meta_yml() doesn't properly return multi-match results |
Should the guess_license_from_meta_yml() method match a non-distinct
license, it will attempt to use the arrayref as the license name instead
of returning a list of licenses.
for e.g., the mozilla license:
mozilla => [ map { "Mozilla_$_" } qw(1_0 1_1) ],
but the code does this:
return unless $license_text and my $license = $yaml_keys{ $license_text };
return "Software::License::$license";
A fix could be (untested):
return map { "Software::License::$_" } ( ref $license ? @$license :
$license );