- add missing part of patch

tcl-8.5.6-http.patch

@@ -0,0 +1,15 @@
+diff -up tcl8.5.6/library/http/http.tcl.http tcl8.5.6/library/http/http.tcl
+--- tcl8.5.6/library/http/http.tcl.http	2008-10-24 01:34:32.000000000 +0200
++++ tcl8.5.6/library/http/http.tcl	2009-04-01 08:01:54.000000000 +0200
+@@ -943,9 +943,10 @@ proc http::Event {sock token} {
+ 	return
+     }
+     if {$state(state) eq "connecting"} {
+-	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

@@ -4,7 +4,7 @@
 Summary: Tool Command Language, pronounced tickle
 Name: tcl
 Version: %{vers}
-Release: 5%{?dist}
+Release: 6%{?dist}
 Epoch: 1
 License: TCL
 Group: Development/Languages
@@ -18,7 +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
+Patch3: tcl-8.5.6-http.patch
 
 %description
 The Tcl (Tool Command Language) provides a powerful platform for
@@ -126,6 +126,9 @@ rm -rf $RPM_BUILD_ROOT
 %{_libdir}/%{name}8.5/%{name}Config.sh
 
 %changelog
+* Wed Apr 1  2009 Marcela Mašláňová <mmaslano@redhat.com> - 1:8.5.6-6
+- add missing part of patch
+
 * Tue Mar 31 2009 Marcela Mašláňová <mmaslano@redhat.com> - 1:8.5.6-5
 - 492541 newer http prevents connection (reproduced on amsn)