Skip to content

GitLab

O
ordalie
Commit d5c57ec1 authored by luc.moulinier's avatar luc.moulinier
Browse files
Options

ordali.tcl : check link

parent 1caca8d1
Hide whitespace changes
Inline Side-by-side
Showing with 5 additions and 1 deletion
src/ordali.tcl
View file @ d5c57ec1
......@@ -14,7 +14,11 @@ if {! $InStarPack} {
if {[info exists env(ORDALIDIR)]} {
set OrdaliDir $env(ORDALIDIR)
} else {
set OrdaliDir [file join {*}[lrange [file split [file normalize [info script]]] 0 end-2]]
set script [info script]
if {! [catch {file link $script}]} {
set script [file link $script]
}
set OrdaliDir [file join {*}[lrange [file split [file normalize $script]] 0 end-2]]
}
if {[info exists env(GSCOPEDIR)]} {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment