diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-05-01 20:29:02 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-05-01 20:29:02 (GMT) |
| commit | be831d7ecb9df8ebfad280ac50be1773124c08bd (patch) | |
| tree | 93dd89ea72c362534314356f2b1f7d7fb428e1b9 | |
| parent | 44c544160ac12ef622238f0a5e7f3eb1a1ca761e (diff) | |
| download | tcl-be831d7ecb9df8ebfad280ac50be1773124c08bd.zip tcl-be831d7ecb9df8ebfad280ac50be1773124c08bd.tar.gz tcl-be831d7ecb9df8ebfad280ac50be1773124c08bd.tar.bz2 | |
Revert the colorful debug garbage mistakenly committed.
| -rw-r--r-- | generic/tclPathObj.c | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index ffeb688..5984c16 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.c @@ -1322,14 +1322,8 @@ TclNewFSPathObj( fsPathPtr->translatedPathPtr = NULL; fsPathPtr->normPathPtr = Tcl_NewStringObj(addStrRep, len); Tcl_IncrRefCount(fsPathPtr->normPathPtr); - - if (TCL_PATH_ABSOLUTE == Tcl_FSGetPathType(dirPtr)) { - fsPathPtr->cwdPtr = Tcl_FSGetNormalizedPath(NULL, dirPtr); - } else { -fprintf(stdout, "FUCKING BROKEN!\n"); fflush(stdout); - fsPathPtr->cwdPtr = dirPtr; - } - Tcl_IncrRefCount(fsPathPtr->cwdPtr); + fsPathPtr->cwdPtr = dirPtr; + Tcl_IncrRefCount(dirPtr); fsPathPtr->nativePathPtr = NULL; fsPathPtr->fsPtr = NULL; fsPathPtr->filesystemEpoch = 0; |