[66398] trunk/base/src/registry2.0/portimage.tcl

[jmr at macports.org]

Revision: 66398
          http://trac.macports.org/changeset/66398
Author:   jmr at macports.org
Date:     2010-04-11 00:01:21 -0700 (Sun, 11 Apr 2010)
Log Message:
-----------
remove use of lsearch -nocase as it is not present in Tcl 8.4

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

Modified: trunk/base/src/registry2.0/portimage.tcl
===================================================================
--- trunk/base/src/registry2.0/portimage.tcl	2010-04-11 01:54:46 UTC (rev 66397)
+++ trunk/base/src/registry2.0/portimage.tcl	2010-04-11 07:01:21 UTC (rev 66398)
@@ -449,7 +449,7 @@
                         set result [mportlookup [$owner name]]
                         array unset portinfo
                         array set portinfo [lindex $result 1]
-                        if {[info exists portinfo(replaced_by)] && [lsearch -exact -nocase $portinfo(replaced_by) [$port name]] != -1} {
+                        if {[info exists portinfo(replaced_by)] && [lsearch -regexp $portinfo(replaced_by) "(?i)^[$port name]\$"] != -1} {
                             # we'll deactivate the owner later, but before activating our files
                             set todeactivate($owner) yes
                             set owner "replaced"
@@ -574,7 +574,7 @@
                 }
                 array unset portinfo
                 array set portinfo [lindex $result 1]
-                if {[info exists portinfo(replaced_by)] && [lsearch -exact -nocase $portinfo(replaced_by) $name] != -1} {
+                if {[info exists portinfo(replaced_by)] && [lsearch -regexp $portinfo(replaced_by) "(?i)^${name}\$"] != -1} {
                     lappend deactivated [lindex [registry::active $port] 0]
                     deactivate $port "" ""
                     set port 0
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100411/74ff07b8/attachment-0001.html>