Artifact
37974d4e576c2ba77118e91b5154bccb157e8ddc:
Attachment "ftp.tcl.diff" to
ticket [1708350fff]
added by
kot
2007-05-07 23:45:48.
--- ftp.tcl.orig 2007-05-07 12:35:03.882073100 -0400
+++ ftp.tcl 2007-05-07 12:35:02.819498300 -0400
@@ -100,8 +100,9 @@
# whether this procedure is called or not.
+ global errorInfo
switch -exact -- $state {
data {log::log debug "$state | $msg"}
control {log::log debug "$state | $msg"}
- error {log::log error "$state | E: $msg"}
+ error {log::log error "$state | E: $msg:\n$errorInfo"}
default {log::log debug "$state | $msg"}
}
@@ -2020,5 +2021,4 @@
}
}
- catch {unset ftp(get:channel)}
return 1
} else {
