diff options
Diffstat (limited to 'lib/utils.exp')
| -rw-r--r-- | lib/utils.exp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/utils.exp b/lib/utils.exp index 428a85a..abfbd1f 100644 --- a/lib/utils.exp +++ b/lib/utils.exp @@ -138,11 +138,11 @@ proc which { file } { foreach i $path { verbose "Checking against $i" 3 - if [file exists $i/$file] { - if [file executable $i/$file] { - return $i/$file + if [file exists [file join $i $file]] { + if [file executable [file join $i $file]] { + return [file join $i $file] } else { - warning "$i/$file exists but is not an executable" + warning "[file join $i $file] exists but is not an executable" } } } |