Lines Matching refs:license_files

526 my %license_files;      # name -> hash of license files
566     my @license_files;
570         push @license_files, $_ if m/(ARTISTIC|COPYING|COPYRIGHT|GPL\S*|LICENSE|LICENCE)/i;
572     if (scalar @license_files == 0 && $manifest =~ m/(README)[\n\s]/i) {
573         @license_files = ($1);
575     if (scalar @license_files == 0 && $manifest =~ m/(README\.md)[\n\s]/i) {
576         @license_files = ($1);
578     if (scalar @license_files == 0 && $manifest =~ m/(README\.pod)[\n\s]/i) {
579         @license_files = ($1);
581     return @license_files;
621         $license_files{$name} = {};
629                 $license_files{$name}->{$fname} = sha256_hex( $license );
773         my $license_files = join q{ }, sort keys %{$license_files{$distname}};
774         if ($license_files && (!$license || $license eq q{unknown})) {
775             push @info, qq{[$distname] undefined LICENSE, see $license_files};
792         say {$fh} qq{${brname}_LICENSE_FILES = ${license_files}} if $license_files;
808         my %license_files =  %{$license_files{$distname}};
809         if (scalar keys %license_files) {
812             foreach my $license (sort keys %license_files) {
813                 my $digest = $license_files{$license};