Subject: | Regexp in guess_license_from_meta is too restrictive; can't detect artistic_2 |
artistic_2 is in the %meta_keys lookup table, but the regexp just looks for:
([a-z_]+)
which disallows numbers.
Subject: | software-license.t |
use strict;
use warnings;
use Test::More 0.96;
use Software::LicenseUtils;
my ($artistic) = 'Software::LicenseUtils'->guess_license_from_meta(<<'META');
license: artistic
META
is($artistic, 'Software::License::Artistic_1_0');
my ($artistic_2) = 'Software::LicenseUtils'->guess_license_from_meta(<<'META');
license: artistic_2
META
is($artistic_2, 'Software::License::Artistic_2_0');
done_testing;