[28769] trunk/base/src/registry2.0

[source_changes at macosforge.org]

Revision: 28769
          http://trac.macosforge.org/projects/macports/changeset/28769
Author:   afb at macports.org
Date:     2007-09-08 09:02:23 -0700 (Sat, 08 Sep 2007)

Log Message:
-----------
fix minor syntax errors, for tcldoc

Modified Paths:
--------------
    trunk/base/src/registry2.0/portimage.tcl
    trunk/base/src/registry2.0/portuninstall.tcl

Modified: trunk/base/src/registry2.0/portimage.tcl
===================================================================
--- trunk/base/src/registry2.0/portimage.tcl	2007-09-08 16:01:20 UTC (rev 28768)
+++ trunk/base/src/registry2.0/portimage.tcl	2007-09-08 16:02:23 UTC (rev 28769)
@@ -107,7 +107,7 @@
             return -code error "Image error: ${name} @${version}_${revision}${variants} not installed as an image."
         }
 
-        if { [string equal [$requested state] "active" } {
+        if { [string equal [$requested state] "active"] } {
             return -code error "Image error: ${name} @${version}_${revision}${variants} is already active."
         }
 

Modified: trunk/base/src/registry2.0/portuninstall.tcl
===================================================================
--- trunk/base/src/registry2.0/portuninstall.tcl	2007-09-08 16:01:20 UTC (rev 28768)
+++ trunk/base/src/registry2.0/portuninstall.tcl	2007-09-08 16:02:23 UTC (rev 28769)
@@ -116,7 +116,7 @@
         if { !([info exists uninstall.nochecksum]
                 && [string is true $uninstall.nochecksum]) } {
             set sum1 [$port md5sum $file]
-            if {![catch {set sum2 [md5 $file]}] && ![string match $sum1 $sum2]}{
+            if {![catch {set sum2 [md5 $file]}] && ![string match $sum1 $sum2]} {
                 ui_info "$UI_PREFIX  [format [msgcat::mc "Original checksum does not match for %s, saving a copy to %s"] $file $file$bak_suffix]"
                 file copy $file $file$bak_suffix
             }
@@ -124,7 +124,7 @@
 
         # Normalize the file path to avoid removing the intermediate
         # symlinks (remove the empty directories instead)
-        set theFile [compat filenormalize $file
+        set theFile [compat filenormalize $file]
         lappend files $theFile
 
         # Split out the filename's subpaths and add them to the

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070908/43030b23/attachment.html