Changeset 3908 for trunk/base

Timestamp:

Nov 7, 2003, 11:42:03 AM (20 years ago)

Author:

fkr

Message:

Bug:
Submitted by:
Reviewed by:
Approved by:
Obtained from:

grmpf. cleaning out a stale proc here.

File:

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

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

@@ -1078 +1078 @@
 }
 
+# check for a binary in the path
+# returns an error code if it can not be found
 proc binaryInPath {binary} {
     global env
@@ -1086 +1088 @@
     }
    
-    return "";
-}
-
-proc binaryInPath {binary} {
-    global env
-    foreach dir [split $env(PATH) :] { 
-        if {[file executable [file join $dir $binary]]} {
-            return [file join $dir $binary]
-        }
-    }
-   
     return -code error [format [msgcat::mc "Failed to locate '%s' in path: '%s'"] $binary $env(PATH)];
 }