diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2022-08-07 10:11:42 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2022-08-07 10:11:42 (GMT) |
commit | b4eda6649fc4011ca9c9693ee8752f1ba2c24437 (patch) | |
tree | 2e24c92be3d98892b11ec7185535c18569803c3c /generic/tclFCmd.c | |
parent | 7754129cabaa2aa7f6a487106c0551d0c5f2c2d3 (diff) | |
download | tcl-b4eda6649fc4011ca9c9693ee8752f1ba2c24437.zip tcl-b4eda6649fc4011ca9c9693ee8752f1ba2c24437.tar.gz tcl-b4eda6649fc4011ca9c9693ee8752f1ba2c24437.tar.bz2 |
Remove code that was ifdef'ed out
Diffstat (limited to 'generic/tclFCmd.c')
-rw-r--r-- | generic/tclFCmd.c | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index 9a107da..d7fa750 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -882,17 +882,6 @@ FileBasename( Tcl_IncrRefCount(splitPtr); if (objc != 0) { -#ifdef TCL_TILDE_EXPAND - if ((objc == 1) && (*TclGetString(pathPtr) == '~')) { - Tcl_DecrRefCount(splitPtr); - if (Tcl_FSConvertToPathType(interp, pathPtr) != TCL_OK) { - return NULL; - } - splitPtr = Tcl_FSSplitPath(pathPtr, &objc); - Tcl_IncrRefCount(splitPtr); - } -#endif - /* * Return the last component, unless it is the only component, and it * is the root of an absolute path. |