[50664] trunk/base/src/port1.0/portinstall.tcl

[blb at macports.org]

Revision: 50664
          http://trac.macports.org/changeset/50664
Author:   blb at macports.org
Date:     2009-05-05 23:43:49 -0700 (Tue, 05 May 2009)
Log Message:
-----------
port1.0/portinstall.tcl - use [file separator] since 10.3+ uses Tcl 8.4+

Modified Paths:
--------------
    trunk/base/src/port1.0/portinstall.tcl

Modified: trunk/base/src/port1.0/portinstall.tcl
===================================================================
--- trunk/base/src/port1.0/portinstall.tcl	2009-05-06 05:58:48 UTC (rev 50663)
+++ trunk/base/src/port1.0/portinstall.tcl	2009-05-06 06:43:49 UTC (rev 50664)
@@ -105,16 +105,8 @@
     foreach name [readdir .] {
         set element [file join $cwd $name]
         
-        # XXX jpm's cross-platform code to find file separator
-        # replace with [file seperator] with tcl 8.4
         if {![info exists root]} {
-            if {[string match [file tail "/monkey"] "monkey"]} {
-                set root "/"
-            } elseif {[string match [file tail ":monkey"] "monkey"]} {
-                set root ":"
-            } else {
-                set root "\\"
-            }
+            set root [file separator]
         }
         
         if { [registry_prop_retr $regref installtype] == "image" } {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090505/d8a4c969/attachment.html>