diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-27 09:59:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-27 09:59:14 (GMT) |
| commit | e1fdad425a08599ce5e492ae8087a8406c9ce268 (patch) | |
| tree | 278076ffc2c807bd189758f2b54eee7a31604ee5 /library/init.tcl | |
| parent | 1df3dc0ae2488112b8d9f28bb74b73c508a11210 (diff) | |
| parent | 49b6ecfb4e17876dec5c9f9edad8d5e0a44cb52c (diff) | |
| download | tcl-e1fdad425a08599ce5e492ae8087a8406c9ce268.zip tcl-e1fdad425a08599ce5e492ae8087a8406c9ce268.tar.gz tcl-e1fdad425a08599ce5e492ae8087a8406c9ce268.tar.bz2 | |
Merge 8.7. Go back to lowercase for POSIX err-messages
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 22579c2..23f4da3 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 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 exists" + \"$dest\": file exists" } } } |