diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-17 17:10:20 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-17 17:10:20 (GMT) |
commit | 5a88b1460b0b97b1bc3f5688b5569b0d9ab64b73 (patch) | |
tree | a61d035da7e05b8d8bf7af8f6cbbf921e332eda5 /generic/tclPathObj.c | |
parent | 31d14afe3097976313d5f806bdf13ba3dab11de9 (diff) | |
parent | b563c159d7f63f0a4ca1e9190ec4111d5d4908d9 (diff) | |
download | tcl-5a88b1460b0b97b1bc3f5688b5569b0d9ab64b73.zip tcl-5a88b1460b0b97b1bc3f5688b5569b0d9ab64b73.tar.gz tcl-5a88b1460b0b97b1bc3f5688b5569b0d9ab64b73.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclPathObj.c')
-rw-r--r-- | generic/tclPathObj.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index e180ff8..ad1e04d 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.c @@ -834,7 +834,8 @@ TclJoinPath( assert ( elements >= 0 ); if (elements == 0) { - return Tcl_NewObj(); + TclNewObj(res); + return res; } assert ( elements > 0 ); |