diff options
Diffstat (limited to 'generic/tclFCmd.c')
| -rw-r--r-- | generic/tclFCmd.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index a7f5478..8de33fa 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclFCmd.c,v 1.37 2007/04/02 18:48:03 dgp Exp $ + * RCS: @(#) $Id: tclFCmd.c,v 1.38 2007/04/10 14:47:14 dkf Exp $ */ #include "tclInt.h" @@ -568,8 +568,10 @@ CopyRenameOneFile( */ { - Tcl_Obj* perm = Tcl_NewStringObj("u+w",-1); + Tcl_Obj *perm; int index; + + TclNewLiteralStringObj(perm, "u+w"); Tcl_IncrRefCount(perm); if (TclFSFileAttrIndex(target, "-permissions", &index) == TCL_OK) { Tcl_FSFileAttrsSet(NULL, index, target, perm); |