From 652539291e7ff617a9c5480a3445b1afacf6fa8f Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Tue, 12 Jul 2011 09:01:16 +1000
Subject: Return an absolute path for [info nameofexec]

Signed-off-by: Steve Bennett <steveb@workware.net.au>
---
 stdlib.tcl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib.tcl')

diff --git a/stdlib.tcl b/stdlib.tcl
index 84e9120..3abeb3e 100644
--- a/stdlib.tcl
+++ b/stdlib.tcl
@@ -101,11 +101,11 @@ proc errorInfo {msg {stacktrace ""}} {
 # Returns the empty string if not found.
 proc {info nameofexecutable} {} {
 	if {[info exists ::jim_argv0]} {
-		if {[string first "/" $::jim_argv0] >= 0} {
-			return $::jim_argv0
+		if {[string match "*/*" $::jim_argv0]} {
+			return [file join [pwd] $::jim_argv0]
 		}
-		foreach path [split [env PATH ""] :] {
-			set exec [file join $path $::jim_argv0]
+		foreach path [split [env PATH ""] $::tcl_platform(pathSeparator)] {
+			set exec [file join [pwd] $path $::jim_argv0]
 			if {[file executable $exec]} {
 				return $exec
 			}
-- 
cgit v1.1