diff options
| author | avl <avl> | 2017-06-07 10:02:30 (GMT) |
|---|---|---|
| committer | avl <avl> | 2017-06-07 10:02:30 (GMT) |
| commit | 6becdbe2f1e2dce5f36cd020b14831ece1df64d9 (patch) | |
| tree | 2fce087c7edff2329104f26b303e8e1b5c09fe84 | |
| parent | 0c315e1f78e0a6ea716ec52e58542a2eb6472a8e (diff) | |
| download | tcl-avl_strcat_fix.zip tcl-avl_strcat_fix.tar.gz tcl-avl_strcat_fix.tar.bz2 | |
Stop trimming on first non empty-string.avl_strcat_fix
| -rw-r--r-- | generic/tclStringObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index d85bd30..92f0627 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2914,7 +2914,7 @@ TclStringCatObjv( objPtr = *(--ov); --oc; if (objPtr->bytes && objPtr->length==0) { objc--; - } + } else break; } /* Don't update objv, yet: we may still need it */ |