aboutsummaryrefslogtreecommitdiff
path: root/packages/patches/fix_encoding_bug_1572290-0.41.4.patch
diff options
context:
space:
mode:
Diffstat (limited to 'packages/patches/fix_encoding_bug_1572290-0.41.4.patch')
-rw-r--r--packages/patches/fix_encoding_bug_1572290-0.41.4.patch37
1 files changed, 0 insertions, 37 deletions
diff --git a/packages/patches/fix_encoding_bug_1572290-0.41.4.patch b/packages/patches/fix_encoding_bug_1572290-0.41.4.patch
deleted file mode 100644
index 9e8d07ee..00000000
--- a/packages/patches/fix_encoding_bug_1572290-0.41.4.patch
+++ /dev/null
@@ -1,37 +0,0 @@
-Index: t_tkcmd.c
-===================================================================
---- t_tkcmd.c (revision 9782)
-+++ t_tkcmd.c (working copy)
-@@ -509,10 +509,14 @@
-
- static int pdCmd(ClientData cd, Tcl_Interp *interp, int argc, char **argv)
- {
-+ Tcl_DString dstring; /* used to convert the Tcl string to the OS encoding */
-+ char *dstring_char;
- if (argc == 2)
- {
- int n = strlen(argv[1]);
-- if (send(sockfd, argv[1], n, 0) < n)
-+ /* NULL as first arg means use the current system encoding */
-+ dstring_char = Tcl_UtfToExternalDString(NULL, argv[1], -1, &dstring);
-+ if (send(sockfd, dstring_char, n, 0) < n)
- {
- perror("stdout");
- tcl_mess("exit\n");
-@@ -534,12 +538,15 @@
- if (i > 1) strcat(buf, " ");
- strcat(buf, argv[i]);
- }
-- if (send(sockfd, buf, strlen(buf), 0) < 0)
-+ /* NULL as first arg means use the current system encoding */
-+ dstring_char = Tcl_UtfToExternalDString(NULL, buf, -1, &dstring);
-+ if (send(sockfd, dstring_char, strlen(dstring_char), 0) < 0)
- {
- perror("stdout");
- tcl_mess("exit\n");
- }
- }
-+ Tcl_DStringFree(&dstring);
- return (TCL_OK);
- }
-