Ticket #12596: receipt_flat.tcl.patch
File receipt_flat.tcl.patch, 559 bytes (added by chris@…, 16 years ago) |
---|
-
base/src/registry1.0/receipt_flat.tcl
old new 181 181 182 182 # Remove any line starting with # 183 183 while {[regexp "(^|\n)#.*\n(.*)\$" $receipt_contents match foo receipt_contents]} {} 184 array set receipt_$ref $receipt_contents 184 if { [catch {array set receipt_$ref $receipt_contents} rcpterr] } { 185 error "Malformed package receipt for $name $version $revision $variants: $rcpterr" 186 } 185 187 } else { 186 188 # This is old Images format 187 189