[116519] trunk/base/portmgr

[cal at macports.org]

Revision: 116519
          https://trac.macports.org/changeset/116519
Author:   cal at macports.org
Date:     2014-01-27 07:40:13 -0800 (Mon, 27 Jan 2014)
Log Message:
-----------
portmgr/autosubmit.tcl: Tcl cleanup, patch by Gustaf Neumann, Tcl8.4-compatible

Modified Paths:
--------------
    trunk/base/portmgr/autosubmit.tcl
    trunk/base/portmgr/jobs/PortIndex2MySQL.tcl
    trunk/base/portmgr/jobs/port_binary_distributable.tcl

Modified: trunk/base/portmgr/autosubmit.tcl
===================================================================
--- trunk/base/portmgr/autosubmit.tcl	2014-01-27 15:39:11 UTC (rev 116518)
+++ trunk/base/portmgr/autosubmit.tcl	2014-01-27 15:40:13 UTC (rev 116519)
@@ -66,7 +66,7 @@
 			db eval { select * from submitinfo where porturl=$porturl } values {
 				set none 0
 				
-				if { $values(last_mod_date) == "" || $values(last_mod_date) != $mod_date } {
+				if { $values(last_mod_date) eq "" || $values(last_mod_date) != $mod_date } {
 				
 					# The last_mod_date has changed, so just update it to provide
 					# hysteresis for file changes
@@ -118,7 +118,7 @@
 			}
 			
 			# Do update or insert post processing
-			if { $post != "" } {
+			if { $post ne "" } {
 				db eval $post
 			}
 		}

Modified: trunk/base/portmgr/jobs/PortIndex2MySQL.tcl
===================================================================
--- trunk/base/portmgr/jobs/PortIndex2MySQL.tcl	2014-01-27 15:39:11 UTC (rev 116518)
+++ trunk/base/portmgr/jobs/PortIndex2MySQL.tcl	2014-01-27 15:40:13 UTC (rev 116519)
@@ -75,7 +75,7 @@
 # handle command line arguments
 set create_tables true
 if {[llength $argv]} {
-    if {[lindex $argv 0] == "--create-tables"} {
+    if {[lindex $argv 0] eq "--create-tables"} {
         set create_tables true
     }
 }

Modified: trunk/base/portmgr/jobs/port_binary_distributable.tcl
===================================================================
--- trunk/base/portmgr/jobs/port_binary_distributable.tcl	2014-01-27 15:39:11 UTC (rev 116518)
+++ trunk/base/portmgr/jobs/port_binary_distributable.tcl	2014-01-27 15:40:13 UTC (rev 116519)
@@ -122,7 +122,7 @@
     mportclose $mport
 
     foreach dependencyType $check_deptypes {
-        if {[info exists portInfo($dependencyType)] && [string length $portInfo($dependencyType)] > 0} {
+        if {[info exists portInfo($dependencyType)] && $portInfo($dependencyType) ne ""} {
             foreach dependency $portInfo($dependencyType) {
                 set afterColon [expr {[string last ":" $dependency] + 1}]
                 lappend dependencyList [string range $dependency $afterColon end]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140127/6743778e/attachment.html>