Changeset 226 for trunk/base
- Timestamp:
- Aug 21, 2002, 8:05:47 AM (22 years ago)
- Location:
- trunk/base/src/port1.0
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/base/src/port1.0/portchecksum.tcl
r221 r226 26 26 } else { 27 27 # XXX Handle this error beter 28 ui_error "$ UI_PREFIX $line - md5sum failed!"28 ui_error "$line - md5sum failed!" 29 29 return -1 30 30 } … … 51 51 52 52 if ![info exists checksums] { 53 ui_error " $UI_PREFIXNo MD5 checksums."53 ui_error "No MD5 checksums." 54 54 return -1 55 55 } … … 59 59 set dchecksum [dmd5 $distfile] 60 60 if {$dchecksum == -1} { 61 ui_error " $UI_PREFIXNo checksum recorded for $distfile"61 ui_error "No checksum recorded for $distfile" 62 62 return -1 63 63 } … … 65 65 ui_msg "$UI_PREFIX Checksum OK for $distfile" 66 66 } else { 67 ui_error " $UI_PREFIXChecksum mismatch for $distfile"67 ui_error "Checksum mismatch for $distfile" 68 68 return -1 69 69 } -
trunk/base/src/port1.0/portextract.tcl
r221 r226 48 48 set cmd "${extract.cmd} [join ${extract.before_args}] $distpath/$distfile [join ${extract.after_args}]" 49 49 if [catch {system $cmd} result] { 50 ui_error "$ UI_PREFIX $result"50 ui_error "$result" 51 51 return -1 52 52 }
Note: See TracChangeset
for help on using the changeset viewer.