diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-25 20:00:58 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-25 20:00:58 (GMT) |
commit | 5c40bd9a6cf398d2e031d37b77e670b2babf9020 (patch) | |
tree | 17a65f8cdd9e3ef0898e747e98d751bb6fff70aa /library/init.tcl | |
parent | 414896d31fc17726a8380347db1f306066ca6c70 (diff) | |
download | tcl-5c40bd9a6cf398d2e031d37b77e670b2babf9020.zip tcl-5c40bd9a6cf398d2e031d37b77e670b2babf9020.tar.gz tcl-5c40bd9a6cf398d2e031d37b77e670b2babf9020.tar.bz2 |
Experimental fix for [fa128568a5]: EOVERFLOW does not necessarily mean "file too big"
Let's synchronize the POSIX error-messages with what Linux gives nowadays.
Diffstat (limited to 'library/init.tcl')
-rw-r--r-- | library/init.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/init.tcl b/library/init.tcl index bbff158..22579c2 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -726,7 +726,7 @@ proc tcl::CopyDirectory {action src dest} { # the following code is now commented out. # # return -code error "error $action \"$src\" to\ - # \"$dest\": file already exists" + # \"$dest\": File exists" } else { # Depending on the platform, and on the current # working directory, the directories '.', '..' @@ -738,7 +738,7 @@ proc tcl::CopyDirectory {action src dest} { foreach s $existing { if {[file tail $s] ni {. ..}} { return -code error "error $action \"$src\" to\ - \"$dest\": file already exists" + \"$dest\": File exists" } } } |