diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-02-05 17:08:03 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-02-05 17:08:03 (GMT) |
| commit | 98d48e2c815040cf44ab25dfb051af32abd92894 (patch) | |
| tree | 006e83887761c10b0e9e728a7651184e4e961ba3 /library | |
| parent | 0b76b754c99e78e1112b519d143d55a3325cef0a (diff) | |
| download | tcl-98d48e2c815040cf44ab25dfb051af32abd92894.zip tcl-98d48e2c815040cf44ab25dfb051af32abd92894.tar.gz tcl-98d48e2c815040cf44ab25dfb051af32abd92894.tar.bz2 | |
* Corrected use of http::error when
::error was intended. Bump to http 2.4.2.
Diffstat (limited to 'library')
| -rw-r--r-- | library/http/http.tcl | 6 | ||||
| -rw-r--r-- | library/http/pkgIndex.tcl | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl index 838ae1b..3cc0640 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.40 2002/01/25 03:07:16 hobbs Exp $ +# RCS: @(#) $Id: http.tcl,v 1.41 2002/02/05 17:08:04 dgp Exp $ # Rough version history: # 1.0 Old http_get interface @@ -24,7 +24,7 @@ package require Tcl 8.2 # keep this in sync with pkgIndex.tcl -package provide http 2.4.1 +package provide http 2.4.2 namespace eval http { variable http @@ -198,7 +198,7 @@ proc http::reset { token {why reset} } { if {[info exists state(error)]} { set errorlist $state(error) unset state - eval error $errorlist + eval ::error $errorlist } } diff --git a/library/http/pkgIndex.tcl b/library/http/pkgIndex.tcl index bfca5a9..8461a67 100644 --- a/library/http/pkgIndex.tcl +++ b/library/http/pkgIndex.tcl @@ -9,4 +9,4 @@ # full path name of this file's directory. if {![package vsatisfies [package provide Tcl] 8.2]} {return} -package ifneeded http 2.4.1 [list tclPkgSetup $dir http 2.4.1 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister}}}] +package ifneeded http 2.4.2 [list tclPkgSetup $dir http 2.4.2 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister}}}] |