port_binary_distributable: output properly capitalised licence names

Author: danchr

jobs/distributable_lib.tcl

@@ -220,10 +220,10 @@ proc check_licenses {portName variantInfo} {
         set sub_names {}
         foreach full_lic $sublist {
             # chop off any trailing version number
-            set lic [remove_version [string tolower $full_lic]]
+            set lic [remove_version $full_lic]
             # add name to the list for later
             lappend sub_names $lic
-            if {[info exists ::license_good($lic)]} {
+            if {[info exists ::license_good([string tolower $lic])]} {
                 set any_good 1
             }
         }
@@ -299,7 +299,7 @@ proc check_licenses {portName variantInfo} {
             }
 
             if {!$any_good} {
-                lappend failures "\"$portName\" is not distributable because its dependency \"$aPort\" has license \"$lic\" which is not known to be distributable: [join $parentPath " -> "]"
+                lappend failures "\"$portName\" is not distributable because its dependency \"$aPort\" has license \"$full_lic\" which is not known to be distributable: [join $parentPath " -> "]"
             } elseif {!$any_compatible} {
                 lappend failures "\"$portName\" is not distributable because its license \"$top_lic\" conflicts with license \"$full_lic\": [join $parentPath " -> "]"
             }