Ticket #12596: receipt_flat.tcl.patch

base/src/registry1.0/receipt_flat.tcl

@@ -181 +181 @@
 
                 # Remove any line starting with #
                 while {[regexp "(^|\n)#.*\n(.*)\$" $receipt_contents match foo receipt_contents]} {}
-                array set receipt_$ref $receipt_contents
+                if { [catch {array set receipt_$ref $receipt_contents} rcpterr] } {
+                        error "Malformed package receipt for $name $version $revision $variants: $rcpterr"
+                }
         } else {
                 # This is old Images format