summaryrefslogtreecommitdiffstats
path: root/generic/tclFileName.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-07-04 00:07:51 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-07-04 00:07:51 (GMT)
commitd3104ac52bdca1849c62445954323c841fcd5009 (patch)
tree6ee7d40f28f76cb96d1fbbb162fb7c6a60b69b6c /generic/tclFileName.c
parent80ba6f385364c497116741643bfc008ec9bfe544 (diff)
downloadtcl-d3104ac52bdca1849c62445954323c841fcd5009.zip
tcl-d3104ac52bdca1849c62445954323c841fcd5009.tar.gz
tcl-d3104ac52bdca1849c62445954323c841fcd5009.tar.bz2
missed a spot
Diffstat (limited to 'generic/tclFileName.c')
-rw-r--r--generic/tclFileName.c3
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);
}