[66931] trunk/base/src/port1.0

[jmr at macports.org]

Revision: 66931
          http://trac.macports.org/changeset/66931
Author:   jmr at macports.org
Date:     2010-04-26 00:16:52 -0700 (Mon, 26 Apr 2010)
Log Message:
-----------
protect switch args for older tcl

Modified Paths:
--------------
    trunk/base/src/port1.0/fetch_common.tcl
    trunk/base/src/port1.0/portdestroot.tcl
    trunk/base/src/port1.0/portutil.tcl

Modified: trunk/base/src/port1.0/fetch_common.tcl
===================================================================
--- trunk/base/src/port1.0/fetch_common.tcl	2010-04-26 04:55:53 UTC (rev 66930)
+++ trunk/base/src/port1.0/fetch_common.tcl	2010-04-26 07:16:52 UTC (rev 66931)
@@ -51,7 +51,7 @@
     while {[string length $str] > 0} {
         set char [string index $str 0]
         set str [string range $str 1 end]
-        switch $char {
+        switch -- $char {
             {-} -
             {.} -
             {_} -

Modified: trunk/base/src/port1.0/portdestroot.tcl
===================================================================
--- trunk/base/src/port1.0/portdestroot.tcl	2010-04-26 04:55:53 UTC (rev 66930)
+++ trunk/base/src/port1.0/portdestroot.tcl	2010-04-26 07:16:52 UTC (rev 66931)
@@ -315,7 +315,7 @@
                         lpush pathsToCheck $dfile
                     } else {
                         # not a prefix of an allowed path, so it's either the path itself or a violation
-                        switch $dfile \
+                        switch -- $dfile \
                             $applications_dir - \
                             $frameworks_dir - \
                             /Library/LaunchAgents - \

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2010-04-26 04:55:53 UTC (rev 66930)
+++ trunk/base/src/port1.0/portutil.tcl	2010-04-26 07:16:52 UTC (rev 66931)
@@ -843,7 +843,7 @@
         set arg [lindex $args 0]
         if {[string index $arg 0] eq "-"} {
             set args [lrange $args 1 end]
-            switch [string range $arg 1 end] {
+            switch -- [string range $arg 1 end] {
                 E {
                     set extended 1
                 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100426/e02e8bd0/attachment-0001.html>