dinislage/cpanspec
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Do a case-insensitive match on the possible licenses.

Browse Source
This commit is contained in:
stevenpritchard
2006-05-25 00:33:47 +00:00
parent 4224db9b04
commit e1d5e86e0f
2 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Changes
+1
View File
@@ -1,6 +1,7 @@
1.67 1.67
* Exclude NINJA. * Exclude NINJA.
* Do a case-insensitive match on the possible licenses.
1.66 2006-05-16 1.66 2006-05-16
cpanspec
+12 -12
View File
@@ -10,7 +10,7 @@
# but WITHOUT ANY WARRANTY; without even the implied warranty of # but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
# #
# $Id: cpanspec,v 1.28 2006/05/20 21:19:38 stevenpritchard Exp $ # $Id: cpanspec,v 1.29 2006/05/25 00:33:47 stevenpritchard Exp $
our $NAME="cpanspec"; our $NAME="cpanspec";
our $VERSION='1.67'; our $VERSION='1.67';
@@ -753,27 +753,27 @@ for my $file (@args) {
# This list of licenses is from the Module::Build::API # This list of licenses is from the Module::Build::API
# docs, cross referenced with the list of licenses in # docs, cross referenced with the list of licenses in
# /usr/share/rpmlint/config. # /usr/share/rpmlint/config.
if ($meta->{license} eq "perl") { if ($meta->{license} =~ /^perl$/i) {
$license="GPL or Artistic"; $license="GPL or Artistic";
} elsif ($meta->{license} eq "apache") { } elsif ($meta->{license} =~ /^apache$/i) {
$license="Apache Software License"; $license="Apache Software License";
} elsif ($meta->{license} eq "artistic") { } elsif ($meta->{license} =~ /^artistic$/i) {
$license="Artistic"; $license="Artistic";
} elsif ($meta->{license} eq "bsd") { } elsif ($meta->{license} =~ /^bsd$/i) {
$license="BSD"; $license="BSD";
} elsif ($meta->{license} eq "gpl") { } elsif ($meta->{license} =~ /^gpl$/i) {
$license="GPL"; $license="GPL";
} elsif ($meta->{license} eq "lgpl") { } elsif ($meta->{license} =~ /^lgpl$/i) {
$license="LGPL"; $license="LGPL";
} elsif ($meta->{license} eq "mit") { } elsif ($meta->{license} =~ /^mit$/i) {
$license="MIT"; $license="MIT";
} elsif ($meta->{license} eq "mozilla") { } elsif ($meta->{license} =~ /^mozilla$/i) {
$license="MPL"; $license="MPL";
} elsif ($meta->{license} eq "open_source") { } elsif ($meta->{license} =~ /^open_source$/i) {
$license="OSI-Approved"; # rpmlint will complain $license="OSI-Approved"; # rpmlint will complain
} elsif ($meta->{license} eq "unrestricted") { } elsif ($meta->{license} =~ /^unrestricted$/i) {
$license="Distributable"; $license="Distributable";
} elsif ($meta->{license} eq "restrictive") { } elsif ($meta->{license} =~ /^restrictive$/i) {
$license="Non-distributable"; $license="Non-distributable";
warn "License is 'restrictive'." warn "License is 'restrictive'."
. " This package should not be redistributed.\n"; . " This package should not be redistributed.\n";