summarylogtreecommitdiffstats
path: root/001-fix-relocation.patch
blob: 89715d11b362b7f7019ab5bc906d97093a32a1f3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
--- tcl8.6.7/win/tclWinInit.orig.c	2017-05-08 18:06:31.000000000 +0200
+++ tcl8.6.7/win/tclWinInit.c	2017-11-29 00:00:42.764038800 +0100
@@ -366,7 +366,7 @@
     end = strrchr(name, '\\');
     *end = '\0';
     p = strrchr(name, '\\');
-    if (p != NULL) {
+    if (p != NULL && !strcmp(p+1, "bin")) {
 	end = p;
     }
     *end = '\\';
@@ -417,7 +417,7 @@
     end = strrchr(name, '\\');
     *end = '\0';
     p = strrchr(name, '\\');
-    if (p != NULL) {
+    if (p != NULL && !strcmp(p+1, "bin")) {
 	end = p;
     }
     *end = '\\';