Răsfoiți Sursa

utils/scancpan: improve license file detection

MANIFEST may contains line like this:
"LICENSE                     LICENSE file (added by Distar)"
so, retains only the first word.

Signed-off-by: Francois Perrad <francois.perrad@gadz.org>
Signed-off-by: Thomas Petazzoni <thomas.petazzoni@bootlin.com>
Francois Perrad 5 ani în urmă
părinte
comite
f71f944fe6
1 a modificat fișierele cu 1 adăugiri și 0 ștergeri
  1. 1 0
      utils/scancpan

+ 1 - 0
utils/scancpan

@@ -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) {