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 743fe14..50bea95 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.19 2002/08/08 08:56:21 hobbs Exp $ + * RCS: @(#) $Id: tclFCmd.c,v 1.20 2002/08/08 10:41:22 hobbs Exp $ */ #include "tclInt.h" @@ -553,6 +553,7 @@ CopyRenameOneFile(interp, source, target, copyFlag, force) actualSource = source; Tcl_IncrRefCount(actualSource); +#if 0 #ifdef S_ISLNK /* * To add a flag to make 'copy' copy links instead of files, we could @@ -576,7 +577,7 @@ CopyRenameOneFile(interp, source, target, copyFlag, force) } else { int counter = 0; while (1) { - Tcl_Obj *path = Tcl_FSLink(actualSource,NULL,0); + Tcl_Obj *path = Tcl_FSLink(actualSource, NULL, 0); if (path == NULL) { break; } @@ -595,6 +596,7 @@ CopyRenameOneFile(interp, source, target, copyFlag, force) } } #endif +#endif if (S_ISDIR(sourceStatBuf.st_mode)) { result = Tcl_FSCopyDirectory(actualSource, target, &errorBuffer); |