typos in the tcl8.2 http lib

[George Bonser <grep@shorelink.com>]

Found a couple of typos in /usr/lib/tcl8.2/http2.1/http.tcl

There are two places where the author has

info exist

rather than

info exists

below patch will fix it:

--- http.tcl.orig       Tue Sep 14 12:48:47 1999
+++ http.tcl    Tue Sep 14 13:05:38 1999
@@ -100,7 +100,7 @@
                set state(status) error
            }
        }
-       if {[info exist state(-command)]} {
+       if {[info exists state(-command)]} {
            # Command callback may already have unset our state
            unset state(-command)
        }
@@ -332,7 +332,7 @@
 proc http::cleanup {token} {
     variable $token
     upvar 0 $token state
-    if {[info exist state]} {
+    if {[info exists state]} {
        unset state
     }
 }


George Bonser

"When someone annoys you, it takes 32 muscles to frown, but it only
takes 4 muscles to extend your arm and smack them in the head."