From 98d48e2c815040cf44ab25dfb051af32abd92894 Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 5 Feb 2002 17:08:03 +0000 Subject: * Corrected use of http::error when ::error was intended. Bump to http 2.4.2. --- ChangeLog | 6 ++++++ library/http/http.tcl | 6 +++--- library/http/pkgIndex.tcl | 2 +- 3 files changed, 10 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2385727..28a6b81 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2002-02-05 Don Porter + + * library/http/http.tcl: + * library/http/pkgIndex.tcl: Corrected use of http::error when + ::error was intended. Bump to http 2.4.2. + 2002-02-04 Andreas Kupries * unix/tclUnixChan.c (FileOutputProc): Fixed [bug 465765] reported 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}}}] -- cgit v0.12