diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-16 11:24:21 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-07-16 11:24:21 (GMT) |
| commit | 4f523fda09b2d21bf1b830e0258a4f489d4a8df4 (patch) | |
| tree | 6cc13d579aa8920a7ca0b70ac9b8bcdade0eedac /unix/tclUnixPipe.c | |
| parent | 516f8e365dd94bfc9af0fb2d86516cae5bb2ec7f (diff) | |
| parent | ad3c0d8addcd132eb23ae96bcc21ce59458cb67a (diff) | |
| download | tcl-4f523fda09b2d21bf1b830e0258a4f489d4a8df4.zip tcl-4f523fda09b2d21bf1b830e0258a4f489d4a8df4.tar.gz tcl-4f523fda09b2d21bf1b830e0258a4f489d4a8df4.tar.bz2 | |
merge trunk
Diffstat (limited to 'unix/tclUnixPipe.c')
| -rw-r--r-- | unix/tclUnixPipe.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c index d01624c..a505bef 100644 --- a/unix/tclUnixPipe.c +++ b/unix/tclUnixPipe.c @@ -211,7 +211,7 @@ TclpCreateTempFile( if (contents != NULL) { native = Tcl_UtfToExternalDString(NULL, contents, -1, &dstring); - if (write(fd, native, strlen(native)) == -1) { + if (write(fd, native, Tcl_DStringLength(&dstring)) == -1) { close(fd); Tcl_DStringFree(&dstring); return NULL; |