[116444] trunk/base/src/machista1.0/tests/test.tcl

[cal at macports.org]

Revision: 116444
          https://trac.macports.org/changeset/116444
Author:   cal at macports.org
Date:     2014-01-25 08:44:00 -0800 (Sat, 25 Jan 2014)
Log Message:
-----------
machista1.0: use string comparisons where strings are compared, part of a patch from Gustaf Neumann

Modified Paths:
--------------
    trunk/base/src/machista1.0/tests/test.tcl

Modified: trunk/base/src/machista1.0/tests/test.tcl
===================================================================
--- trunk/base/src/machista1.0/tests/test.tcl	2014-01-25 16:43:11 UTC (rev 116443)
+++ trunk/base/src/machista1.0/tests/test.tcl	2014-01-25 16:44:00 UTC (rev 116444)
@@ -12,14 +12,14 @@
 	if {[lindex $rlist 0] == $machista::SUCCESS} {
 		set r [lindex $rlist 1]
 		set a [$r cget -mt_archs]
-		while {$a != "NULL"} {
+		while {$a ne "NULL"} {
 			puts "	Architecture: [$a cget -mat_arch]"
 			puts "		         install name: [$a cget -mat_install_name]"
 			puts "		      current version: [machista::format_dylib_version [$a cget -mat_version]]"
 			puts "		compatibility version: [machista::format_dylib_version [$a cget -mat_comp_version]]"
 	
 			set l [$a cget -mat_loadcmds]
-			while {$l != "NULL"} {
+			while {$l ne "NULL"} {
 				puts "			[$l cget -mlt_install_name] (current version [machista::format_dylib_version [$l cget -mlt_version]], compatibility version [machista::format_dylib_version [$l cget -mlt_comp_version]])"
 				set l [$l cget -next]
 			}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140125/9b467339/attachment.html>