diff options
Diffstat (limited to 'autosetup/test-tclsh')
| -rw-r--r-- | autosetup/test-tclsh | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/autosetup/test-tclsh b/autosetup/test-tclsh index 52b5f7f..3fdebb2 100644 --- a/autosetup/test-tclsh +++ b/autosetup/test-tclsh @@ -4,16 +4,17 @@ # Outputs the full path to the interpreter if {[catch {info version} version] == 0} { + # This is Jim Tcl if {$version >= 0.70} { # Ensure that regexp works - regexp a a + regexp (a.*?) a - # Unlike Tcl, [info nameofexecutable] can return a relative path + # Older versions of jimsh may return a relative path for [info nameofexecutable] puts [file join [pwd] [info nameofexecutable]] exit 0 } } elseif {[catch {info tclversion} version] == 0} { - if {$version >= 8.5} { + if {$version >= 8.5 && ![string match 8.5a* [info patchlevel]]} { puts [info nameofexecutable] exit 0 } |