Commit d5c57ec1 authored by luc.moulinier's avatar luc.moulinier

ordali.tcl : check link

parent 1caca8d1
......@@ -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