Remove the 8.5+ requirement to avoid problems with shipping http as a tcl module.

2 files changed, 8 insertions, 4 deletions

diff --git a/ChangeLog b/ChangeLog
index f89e4e0..477fdfe 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-08-11  Pat Thoyts  <patthoyts@users.sourceforge.net>
+
+	* library/http/http.tcl: Remove 8.5 requirement.
+
 2008-08-11  Andreas Kupries  <andreask@activestate.com>
 
 	* library/tm.tcl: Added a 'package provide' command to the
diff --git a/library/http/http.tcl b/library/http/http.tcl
index 261a331..d5b299d 100644
--- a/library/http/http.tcl
+++ b/library/http/http.tcl
@@ -8,7 +8,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.67.2.2 2008/08/11 15:49:26 dgp Exp $
+# RCS: @(#) $Id: http.tcl,v 1.67.2.3 2008/08/11 21:31:11 patthoyts Exp $
 
 package require Tcl 8.5.0
 # Keep this in sync with pkgIndex.tcl and with the install directories
@@ -1406,10 +1406,10 @@ proc http::Gunzip {data} {
         incr pos
     }
 
-    binary scan [string range $data end-7 end] iuiu crc size
+    binary scan [string range $data end-7 end] ii crc size
     set inflated [zlib inflate [string range $data $pos end-8]]
-
-    if { $crc != [set chk [zlib crc32 $inflated]] } {
+    set chk [zlib crc32 $inflated]
+    if { ($crc & 0xffffffff) != ($chk & 0xffffffff)} {
 	return -code error "invalid data: checksum mismatch $crc != $chk"
     }
     return $inflated