Lines Matching refs:licence
63 desc => "BSD Licence (with advertising clause)",
73 desc => "BSD Licence (without advertising clause)",
82 desc => "BSD Licence (without advertising or endorsement clauses)",
90 desc => "MIT/X11/Xorg Licence",
97 desc => "ISC Licence",
112 # Parse licence list from command line
114 foreach my $licence ( @ARGV ) {
115 die "Unknown licence \"$licence\"\n"
116 unless exists $known_licences->{$licence};
117 $licences->{$licence} = $known_licences->{$licence};
121 # Dump licence list
124 foreach my $licence ( keys %$licences ) {
125 print " ".$licences->{$licence}->{desc}."\n"
129 # Apply licence compatibilities to reduce to a single resulting licence
130 foreach my $licence ( keys %$licences ) {
132 next unless exists $licences->{$licence};
134 foreach my $can_subsume ( keys %{$licences->{$licence}->{can_subsume}} ) {
136 print $licences->{$licence}->{desc}." subsumes ".
144 # Print resulting licence
145 die "Cannot reduce to a single resulting licence!\n"
147 ( my $licence ) = keys %$licences;
148 print "The overall licence for this file is:\n " if $verbosity >= 1;
149 print $licences->{$licence}->{desc}."\n";
