Attachment "tclUnixTime.patch" to
ticket [739936ffff]
added by
kennykb
2003-05-20 00:44:02.
Also attachment "tclUnixTime.patch" to
ticket [739936ffff]
added by
kennykb
2003-05-19 23:40:12.
Index: unix/tclUnixTime.c
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/tclUnixTime.c,v
retrieving revision 1.17
diff -u -r1.17 tclUnixTime.c
--- unix/tclUnixTime.c 19 May 2003 05:42:36 -0000 1.17
+++ unix/tclUnixTime.c 19 May 2003 16:25:44 -0000
@@ -337,8 +337,12 @@
(((t->tm_hour * 60) + t->tm_min)/144));
return(strlen(s));
} else {
+ Tcl_DStringInit( &utf8Buffer );
+ Tcl_UtfToExternalDString( "", format, -1, &utf8Buffer );
setlocale(LC_TIME, "");
- status = strftime(s, maxsize, format, t);
+ status = strftime( Tcl_DStringValue( &utf8Buffer ),
+ maxsize, format, t );
+ Tcl_DStringFree( &utf8Buffer );
if ( status > 0 ) {
Tcl_DStringInit ( &utf8Buffer );
Tcl_ExternalToUtfDString( NULL, s, status, &utf8Buffer );
