blob: e18fcd80e3ecd36275c54f65ac301dfaaea44461 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
--- gorilla-1.4/gorilla.in 2006-07-14 13:29:33.000000000 -0400
+++ gorilla-1.4/gorilla.in.new 2006-07-14 13:33:01.000000000 -0400
@@ -1,10 +1,13 @@
#! /bin/sh
# the next line restarts using wish \
exec @wish@ "$0" ${1+"$@"}
+
set myName [info script]
+set myGorilla /opt/gorilla-1.4/gorilla.tcl
+
if {![catch {
set linkName [file readlink $myName]
}]} {
set myName $linkName
}
-source [file join [file dirname $myName] gorilla.tcl]
+source [file join [file dirname $myName] $myGorilla]
|
GitWeb
