From c79b6afc94c9b62af62d69b45a58c04902dddf28 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Wed, 21 Jul 2010 22:33:36 +0000 Subject: more patches made obsolete by the 0.43 rewrite svn path=/trunk/; revision=13726 --- .../patches/fix_encoding_bug_1572290-0.41.4.patch | 37 ---------------------- 1 file changed, 37 deletions(-) delete mode 100644 packages/patches/fix_encoding_bug_1572290-0.41.4.patch (limited to 'packages/patches/fix_encoding_bug_1572290-0.41.4.patch') 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); - } - -- cgit v1.2.1