aboutsummaryrefslogtreecommitdiffstats
path: root/contrib/tcl/library/http2.0/http.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/tcl/library/http2.0/http.tcl')
-rw-r--r--contrib/tcl/library/http2.0/http.tcl8
1 files changed, 5 insertions, 3 deletions
diff --git a/contrib/tcl/library/http2.0/http.tcl b/contrib/tcl/library/http2.0/http.tcl
index 80fbfc672412..79c83c3885b3 100644
--- a/contrib/tcl/library/http2.0/http.tcl
+++ b/contrib/tcl/library/http2.0/http.tcl
@@ -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.
#
-# SCCS: @(#) http.tcl 1.6 97/08/07 16:48:32
+# SCCS: @(#) http.tcl 1.8 97/10/28 16:23:30
package provide http 2.0 ;# This uses Tcl namespaces
@@ -352,7 +352,7 @@ proc http::size {token} {
Finish $token $err
}
}
- proc http::CopyDone {token count} {
+ proc http::CopyDone {token count {error {}}} {
variable $token
upvar 0 $token state
set s $state(sock)
@@ -360,7 +360,9 @@ proc http::size {token} {
if [info exists state(-progress)] {
eval $state(-progress) {$token $state(totalsize) $state(currentsize)}
}
- if [::eof $s] {
+ if {([string length $error] != 0)} {
+ Finish $token $error
+ } elseif {[::eof $s]} {
Eof $token
} else {
CopyStart $s $token