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 | d3104ac52bdca1849c62445954323c841fcd5009 (patch) | |
| tree | 6ee7d40f28f76cb96d1fbbb162fb7c6a60b69b6c | |
| parent | 80ba6f385364c497116741643bfc008ec9bfe544 (diff) | |
| download | tcl-d3104ac52bdca1849c62445954323c841fcd5009.zip tcl-d3104ac52bdca1849c62445954323c841fcd5009.tar.gz tcl-d3104ac52bdca1849c62445954323c841fcd5009.tar.bz2 | |
missed a spot
| -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); } |