diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-04 00:07:51 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-04 00:07:51 (GMT) |
| commit | afcb6fb00b921c929e09627a60fbcd16d77ac565 (patch) | |
| tree | 6ee7d40f28f76cb96d1fbbb162fb7c6a60b69b6c /generic/tclFileName.c | |
| parent | 08bec1c1e8e4aae5cb45d4c68a2ab5d9bd73470e (diff) | |
| download | tcl-afcb6fb00b921c929e09627a60fbcd16d77ac565.zip tcl-afcb6fb00b921c929e09627a60fbcd16d77ac565.tar.gz tcl-afcb6fb00b921c929e09627a60fbcd16d77ac565.tar.bz2 | |
missed a spot
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 63faa6d..edb6581 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -1575,8 +1575,7 @@ Tcl_GlobObjCmd( Tcl_DStringInit(&prefix); } for (i = 0; i < objc; i++) { - string = Tcl_GetStringFromObj(objv[i], &length); - Tcl_DStringAppend(&prefix, string, length); + TclDStringAppendObj(&prefix, objv[i]); if (i != objc -1) { Tcl_DStringAppend(&prefix, separators, 1); } |