Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Software-License CPAN distribution.

Report information
The Basics
Id: 87729
Status: resolved
Priority: 0/
Queue: Software-License

People
Owner: Nobody in particular
Requestors: perl [...] toby.ink
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 0.103005
Fixed in: (no value)



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;
I believe this was addressed today. -- rjbs