summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-08-08 10:41:21 (GMT)
committerhobbs <hobbs>2002-08-08 10:41:21 (GMT)
commit17dd87021fe412fb88af83f2f75181c93d685ee9 (patch)
treeca17e69372834b2a3671691857a312c6b8cfcad4 /generic
parent1d73c07b16f3304b87070edf4a7aee24a263402f (diff)
downloadtcl-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.c6
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);