diff options
| author | dgp <dgp@users.sourceforge.net> | 2023-04-03 14:34:28 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2023-04-03 14:34:28 (GMT) |
| commit | a70e30819e9da0c6df3baaf451923e7442852fa2 (patch) | |
| tree | 60383874ca9a4a9ba6e23ebe03639b27e35cd66f /library/init.tcl | |
| parent | 2cf4fcfc9573f7e0a972d8021b070f6f3964eae5 (diff) | |
| parent | 5e5a852fe0635c73bda5b6fea1a265373208e4cf (diff) | |
| download | tcl-a70e30819e9da0c6df3baaf451923e7442852fa2.zip tcl-a70e30819e9da0c6df3baaf451923e7442852fa2.tar.gz tcl-a70e30819e9da0c6df3baaf451923e7442852fa2.tar.bz2 | |
merge trunk
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 424ca3b..70a65b7 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -734,7 +734,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 '.', '..' @@ -746,7 +746,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" } } } |