21 lines
543 B
Diff
21 lines
543 B
Diff
--- 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 = '\\';
|