13 lines
557 B
Plaintext
13 lines
557 B
Plaintext
|
$OpenBSD: patch-lib_Init_tcl,v 1.1 2005/04/18 21:59:51 alek Exp $
|
||
|
|
--- lib/Init.tcl.orig Wed Jan 26 09:00:26 2005
|
||
|
|
+++ lib/Init.tcl Thu Apr 7 22:47:26 2005
|
||
|
|
@@ -49,7 +49,7 @@ proc ::Init::SetThis {thisScript} {
|
||
|
|
|
||
|
|
# Collect paths in 'this' array.
|
||
|
|
set this(script) $thisScript
|
||
|
|
- set this(path) [file dirname $thisScript]
|
||
|
|
+ set this(path) "!!COCCINELLALIB!!"
|
||
|
|
set this(appPath) $this(path)
|
||
|
|
if {[info exists starkit::topdir]} {
|
||
|
|
set this(appPath) [file dirname [info nameofexecutable]]
|