diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/http/http.tcl | 5 | ||||
| -rw-r--r-- | library/http2.0/http.tcl | 5 | ||||
| -rw-r--r-- | library/http2.1/http.tcl | 5 | ||||
| -rw-r--r-- | library/http2.3/http.tcl | 5 |
4 files changed, 12 insertions, 8 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index aa2356b..6ad16df 100644 --- a/library/http/http.tcl +++ b/library/http/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. # -# RCS: @(#) $Id: http.tcl,v 1.4 1999/01/19 23:30:54 welch Exp $ +# RCS: @(#) $Id: http.tcl,v 1.5 1999/02/02 22:28:30 stanton Exp $ package provide http 2.0 ;# This uses Tcl namespaces @@ -363,9 +363,10 @@ proc http::size {token} { if {[info exists state(-progress)]} { eval $state(-progress) {$token $state(totalsize) $state(currentsize)} } + # At this point the token may have been reset if {([string length $error] != 0)} { Finish $token $error - } elseif {[::eof $s]} { + } elseif {[catch {::eof $s} iseof] || $iseof} { Eof $token } else { CopyStart $s $token diff --git a/library/http2.0/http.tcl b/library/http2.0/http.tcl index aa2356b..6ad16df 100644 --- a/library/http2.0/http.tcl +++ b/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. # -# RCS: @(#) $Id: http.tcl,v 1.4 1999/01/19 23:30:54 welch Exp $ +# RCS: @(#) $Id: http.tcl,v 1.5 1999/02/02 22:28:30 stanton Exp $ package provide http 2.0 ;# This uses Tcl namespaces @@ -363,9 +363,10 @@ proc http::size {token} { if {[info exists state(-progress)]} { eval $state(-progress) {$token $state(totalsize) $state(currentsize)} } + # At this point the token may have been reset if {([string length $error] != 0)} { Finish $token $error - } elseif {[::eof $s]} { + } elseif {[catch {::eof $s} iseof] || $iseof} { Eof $token } else { CopyStart $s $token diff --git a/library/http2.1/http.tcl b/library/http2.1/http.tcl index aa2356b..6ad16df 100644 --- a/library/http2.1/http.tcl +++ b/library/http2.1/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. # -# RCS: @(#) $Id: http.tcl,v 1.4 1999/01/19 23:30:54 welch Exp $ +# RCS: @(#) $Id: http.tcl,v 1.5 1999/02/02 22:28:30 stanton Exp $ package provide http 2.0 ;# This uses Tcl namespaces @@ -363,9 +363,10 @@ proc http::size {token} { if {[info exists state(-progress)]} { eval $state(-progress) {$token $state(totalsize) $state(currentsize)} } + # At this point the token may have been reset if {([string length $error] != 0)} { Finish $token $error - } elseif {[::eof $s]} { + } elseif {[catch {::eof $s} iseof] || $iseof} { Eof $token } else { CopyStart $s $token diff --git a/library/http2.3/http.tcl b/library/http2.3/http.tcl index aa2356b..6ad16df 100644 --- a/library/http2.3/http.tcl +++ b/library/http2.3/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. # -# RCS: @(#) $Id: http.tcl,v 1.4 1999/01/19 23:30:54 welch Exp $ +# RCS: @(#) $Id: http.tcl,v 1.5 1999/02/02 22:28:30 stanton Exp $ package provide http 2.0 ;# This uses Tcl namespaces @@ -363,9 +363,10 @@ proc http::size {token} { if {[info exists state(-progress)]} { eval $state(-progress) {$token $state(totalsize) $state(currentsize)} } + # At this point the token may have been reset if {([string length $error] != 0)} { Finish $token $error - } elseif {[::eof $s]} { + } elseif {[catch {::eof $s} iseof] || $iseof} { Eof $token } else { CopyStart $s $token |