Changeset 199 for trunk/base

Timestamp:

Aug 19, 2002, 1:25:07 AM (22 years ago)

Author:

landonf (Landon Fuller)

Message:

Fix bin search path and add ui_debug message

File:

• trunk/base/Tcl/port1.0/portutil.tcl (modified) (2 diffs)

trunk/base/Tcl/port1.0/portutil.tcl

@@ -94 +94 @@
                 bin {
                     # XXX broken
-                    lappend search_path [split $env(PATH) :]
+                    set search_path [split $env(PATH) :]
                 }
                 default {
@@ -108 +108 @@
         foreach filename [readdir $path] {
                 if {[regexp $depregex $filename] == 1} {
-                        puts "GOLDEN: $path $filename $depregex"
+                        ui_debug "Found Dependency: path: $path filename: $filename regex: $depregex"
                         return 0
                 }