diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-27 16:10:03 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-05-27 16:10:03 (GMT) |
commit | 24fb8aad9c612f54ae1b00bb7874fa49126ed8f6 (patch) | |
tree | 76a7fbff6c7f61b6061fd7f084dc03a131cdba10 /win/tclWinFCmd.c | |
parent | b7b512c7b27d4eae512d39ce11b4cbb633f3d665 (diff) | |
parent | bac8bdb8bb12e32bbec2724e1ce04959ce13bb8f (diff) | |
download | tcl-24fb8aad9c612f54ae1b00bb7874fa49126ed8f6.zip tcl-24fb8aad9c612f54ae1b00bb7874fa49126ed8f6.tar.gz tcl-24fb8aad9c612f54ae1b00bb7874fa49126ed8f6.tar.bz2 |
Merge trunk
Diffstat (limited to 'win/tclWinFCmd.c')
-rw-r--r-- | win/tclWinFCmd.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c index 0af484d..5a83425 100644 --- a/win/tclWinFCmd.c +++ b/win/tclWinFCmd.c @@ -926,7 +926,7 @@ TclpObjCopyDirectory( } else if (!strcmp(Tcl_DStringValue(&ds), TclGetString(normDestPtr))) { *errorPtr = destPathPtr; } else { - *errorPtr = Tcl_NewStringObj(Tcl_DStringValue(&ds), TCL_INDEX_NONE); + *errorPtr = Tcl_DStringToObj(&ds); } Tcl_DStringFree(&ds); Tcl_IncrRefCount(*errorPtr); |