diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclPathObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index 168495e..7145592 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.c @@ -1284,7 +1284,7 @@ TclNewFSPathObj( Tcl_Obj *newPath, *tail = Tcl_NewStringObj(addStrRep, len); Tcl_IncrRefCount(tail); - if (addStrRep[0] == '~') { + if (len == 0 || addStrRep[0] == '~') { newPath = AppendPath(dirPtr, tail); Tcl_DecrRefCount(tail); return newPath; |