Changeset 28769 for trunk/base


Ignore:
Timestamp:
Sep 8, 2007, 4:02:23 PM (12 years ago)
Author:
afb@…
Message:

fix minor syntax errors, for tcldoc

Location:
trunk/base/src/registry2.0
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/registry2.0/portimage.tcl

    r28029 r28769  
    108108        }
    109109
    110         if { [string equal [$requested state] "active" } {
     110        if { [string equal [$requested state] "active"] } {
    111111            return -code error "Image error: ${name} @${version}_${revision}${variants} is already active."
    112112        }
  • trunk/base/src/registry2.0/portuninstall.tcl

    r28029 r28769  
    117117                && [string is true $uninstall.nochecksum]) } {
    118118            set sum1 [$port md5sum $file]
    119             if {![catch {set sum2 [md5 $file]}] && ![string match $sum1 $sum2]}{
     119            if {![catch {set sum2 [md5 $file]}] && ![string match $sum1 $sum2]} {
    120120                ui_info "$UI_PREFIX  [format [msgcat::mc "Original checksum does not match for %s, saving a copy to %s"] $file $file$bak_suffix]"
    121121                file copy $file $file$bak_suffix
     
    125125        # Normalize the file path to avoid removing the intermediate
    126126        # symlinks (remove the empty directories instead)
    127         set theFile [compat filenormalize $file
     127        set theFile [compat filenormalize $file]
    128128        lappend files $theFile
    129129
Note: See TracChangeset for help on using the changeset viewer.