diff options
| author | hobbs <hobbs> | 2002-08-08 10:41:21 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-08-08 10:41:21 (GMT) |
| commit | 17dd87021fe412fb88af83f2f75181c93d685ee9 (patch) | |
| tree | ca17e69372834b2a3671691857a312c6b8cfcad4 /generic | |
| parent | 1d73c07b16f3304b87070edf4a7aee24a263402f (diff) | |
| download | tcl-17dd87021fe412fb88af83f2f75181c93d685ee9.zip tcl-17dd87021fe412fb88af83f2f75181c93d685ee9.tar.gz tcl-17dd87021fe412fb88af83f2f75181c93d685ee9.tar.bz2 | |
[Patch #591647] (darley)
(CopyRenameOneFile): this is currently disabled by default until
further issues with such behavior (like relative links) can be
handled correctly.
Diffstat (limited to 'generic')
| -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); |