[qr,/usr/share/common-licenses/GPL(?!-), => 'GPL (symlink)'],
[qr,/usr/share/common-licenses/LGPL(?!-), => 'LGPL (symlink)'],
+ [qr,/usr/share/common-licenses/GFDL, => 'GFDL (any)'],
+ [qr,/usr/share/common-licenses/GPL, => 'GPL (any)'],
+ [qr,/usr/share/common-licenses/LGPL, => 'LGPL (any)'],
+
[qr,(?m)^License:.*Artistic(?!-), => 'Artistic'],
[qr,(?m)^License:.*Artistic-2, => 'Artistic 2.0'],
[qr,(?m)^License:.*CC-BY-3.0, => 'CC-BY 3.0'],
[qr,(?i)creative\s+commons\s+attribution\s+3\.0, => 'CC-BY 3.0'],
[qr,(?i)creative\s+commons\s+attribution[-\s]+share\s*alike\s+3\.0, => 'CC-BY-SA 3.0'],
[qr,GNU GENERAL PUBLIC LICENSE\s+Version 1, => 'GPL 1'],
- [qr,LPPL Version 1.3c, => 'LaTeX PPL'],
+ [qr,LPPL Version 1.3c, => 'LaTeX PPL 1.3c'],
[qr,MOZILLA PUBLIC LICENSE\s+Version 1\.1, => 'MPL 1.1'],
[qr,SIL OPEN FONT LICENSE Version 1\.1, => 'SIL OFL 1.1'],
[qr,SIL OPEN FONT LICENSE Version 1\.0, => 'SIL OFL 1.0'],
for my $name (sort keys %counts) {
printf "%-${length}s %5d\n", $name, $counts{$name};
}
+print "\nTotal number of packages: $n\n";