|
@@ -699,9 +699,16 @@ while (my ($distname, $dist) = each %dist) {
|
|
|
? join q{ or }, @{$dist->{license}}
|
|
|
: $dist->{license};
|
|
|
# BR requires license name as in http://spdx.org/licenses/
|
|
|
+ $license =~ s|apache_1_1|Apache-1.1|;
|
|
|
$license =~ s|apache_2_0|Apache-2.0|;
|
|
|
+ $license =~ s|artistic|Artistic-1.0|;
|
|
|
$license =~ s|artistic_2|Artistic-2.0|;
|
|
|
+ $license =~ s|lgpl_2_1|LGPL-2.1|;
|
|
|
+ $license =~ s|lgpl_3_0|LGPL-3.0|;
|
|
|
+ $license =~ s|gpl_2|GPL-2.0|;
|
|
|
+ $license =~ s|gpl_3|GPL-3.0|;
|
|
|
$license =~ s|mit|MIT|;
|
|
|
+ $license =~ s|mozilla_1_1|Mozilla-1.1|;
|
|
|
$license =~ s|openssl|OpenSSL|;
|
|
|
$license =~ s|perl_5|Artistic or GPL-1.0+|;
|
|
|
my $license_files = join q{ }, keys %{$license_files{$distname}};
|