Ignore:
Timestamp:
Nov 7, 2003, 11:42:03 AM (15 years ago)
Author:
fkr
Message:

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

grmpf. cleaning out a stale proc here.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r3882 r3908  
    10781078}
    10791079
     1080# check for a binary in the path
     1081# returns an error code if it can not be found
    10801082proc binaryInPath {binary} {
    10811083    global env
     
    10861088    }
    10871089   
    1088     return "";
    1089 }
    1090 
    1091 proc binaryInPath {binary} {
    1092     global env
    1093     foreach dir [split $env(PATH) :] {
    1094         if {[file executable [file join $dir $binary]]} {
    1095             return [file join $dir $binary]
    1096         }
    1097     }
    1098    
    10991090    return -code error [format [msgcat::mc "Failed to locate '%s' in path: '%s'"] $binary $env(PATH)];
    11001091}
Note: See TracChangeset for help on using the changeset viewer.