|
@@ -566,6 +566,7 @@ sub find_license_files {
|
|
my @license_files;
|
|
my @license_files;
|
|
foreach (split /\n/, $manifest) {
|
|
foreach (split /\n/, $manifest) {
|
|
next if m|/|;
|
|
next if m|/|;
|
|
|
|
+ s|\s+.*$||;
|
|
push @license_files, $_ if m/(ARTISTIC|COPYING|COPYRIGHT|LICENSE)/i;
|
|
push @license_files, $_ if m/(ARTISTIC|COPYING|COPYRIGHT|LICENSE)/i;
|
|
}
|
|
}
|
|
if (scalar @license_files == 0 && $manifest =~ m/(README)[\n\s]/i) {
|
|
if (scalar @license_files == 0 && $manifest =~ m/(README)[\n\s]/i) {
|