- 492541 newer http prevents connection (reproduced on amsn)

tcl-8.5.6-http.pach

@@ -0,0 +1,12 @@
+diff -up tcl8.5.6/library/http/http.tcl.old tcl8.5.6/library/http/http.tcl
+--- tcl8.5.6/library/http/http.tcl.old	2008-10-24 01:34:32.000000000 +0200
++++ tcl8.5.6/library/http/http.tcl	2009-03-31 09:19:44.000000000 +0200
+@@ -946,6 +946,8 @@ proc http::Event {sock token} {
+ 	set state(state) "header"
+ 	if {[catch {gets $sock state(http)} n]} {
+ 	    return [Finish $token $n]
++	} elseif {$n >= 0} {
++	    set state(state) "header"
+ 	}
+     } elseif {$state(state) eq "header"} {
+ 	if {[catch {gets $sock line} n]} {

tcl.spec

@@ -1,10 +1,10 @@
-%define majorver 8.6
-%define	vers %{majorver}b1
+%define majorver 8.5
+%define	vers %{majorver}.6
 
 Summary: Tool Command Language, pronounced tickle
 Name: tcl
 Version: %{vers}
-Release: 4%{?dist}
+Release: 5%{?dist}
 Epoch: 1
 License: TCL
 Group: Development/Languages
@@ -18,6 +18,7 @@ Provides: tcl-tcldict = %{vers}
 Patch0: tcl-8.5.1-autopath.patch
 Patch1: tcl-8.5.0-conf.patch
 Patch2: tcl-8.5.0-hidden.patch
+Patch3: tcl-8.5.6-http.pach
 
 %description
 The Tcl (Tool Command Language) provides a powerful platform for
@@ -51,6 +52,7 @@ chmod -x generic/tclThreadAlloc.c
 %patch0 -p1 -b .autopath
 %patch1 -p1 -b .conf
 %patch2 -p1 -b .hidden
+%patch3 -p1 -b .http
 
 %build
 pushd unix
@@ -121,10 +123,12 @@ rm -rf $RPM_BUILD_ROOT
 %{_libdir}/lib%{name}stub%{majorver}.a
 %{_libdir}/lib%{name}.so
 %{_libdir}/%{name}Config.sh
-%{_libdir}/%{name}8.6/%{name}Config.sh
-%{_libdir}/tdbc1.0b1/*
+%{_libdir}/%{name}8.5/%{name}Config.sh
 
 %changelog
+* Tue Mar 31 2009 Marcela Mašláňová <mmaslano@redhat.com> - 1:8.5.6-5
+- 492541 newer http prevents connection (reproduced on amsn)
+
 * Wed Feb 25 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1:8.5.6-4
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild