diff options
| author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2007-08-15 18:58:38 +0000 |
|---|---|---|
| committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2007-08-15 18:58:38 +0000 |
| commit | 396cb90143962ca72b4c59b8867fd57f1950ad81 (patch) | |
| tree | d0323cb58eae10b0a8fb2df7db205448fa33cf1f | |
| parent | 6c9ae227f74a6879e587b11f37c51bda1581d2ce (diff) | |
use Tcl to normalize the pd_guidir filename to get rid of ../ and other oddnesses
svn path=/trunk/; revision=8583
| -rw-r--r-- | packages/patches/normalize_pd_guidir-0.40.3.patch | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/packages/patches/normalize_pd_guidir-0.40.3.patch b/packages/patches/normalize_pd_guidir-0.40.3.patch new file mode 100644 index 00000000..e098b4a3 --- /dev/null +++ b/packages/patches/normalize_pd_guidir-0.40.3.patch @@ -0,0 +1,25 @@ +Index: u_main.tk +=================================================================== +RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v +retrieving revision 1.25 +diff -u -w -r1.25 u_main.tk +--- u_main.tk 9 Oct 2006 04:36:12 -0000 1.25 ++++ u_main.tk 15 Aug 2007 18:57:49 -0000 +@@ -36,7 +36,7 @@ + global pd_tearoff + set pd_gui2 [string range $argv0 0 [expr [string last \\ $argv0 ] - 1]] + regsub -all \\\\ $pd_gui2 / pd_gui3 +- set pd_guidir $pd_gui3/.. ++ set pd_guidir [file normalize $pd_gui3/..] + load $pd_guidir/bin/pdtcl.dll + set pd_tearoff 1 + } +@@ -53,7 +53,7 @@ + global pd_guidir + global pd_tearoff + set pd_gui2 [string range $argv0 0 [expr [string last / $argv0 ] - 1]] +- set pd_guidir $pd_gui2/.. ++ set pd_guidir [file normalize $pd_gui2/..] + load $pd_guidir/bin/libPdTcl.dylib + set pd_tearoff 0 + global pd_macready |