From 41c679170f75c00ea0315d47c653dab33c8f3b68 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marcela=20Ma=C5=A1l=C3=A1=C5=88ov=C3=A1?=
 <mmaslano@fedoraproject.org>
Date: Wed, 1 Apr 2009 06:58:35 +0000
Subject: [PATCH] - add missing part of patch

---
 tcl-8.5.6-http.patch | 15 +++++++++++++++
 tcl.spec             |  7 +++++--
 2 files changed, 20 insertions(+), 2 deletions(-)
 create mode 100644 tcl-8.5.6-http.patch

diff --git a/tcl-8.5.6-http.patch b/tcl-8.5.6-http.patch
new file mode 100644
index 0000000..97cfff2
--- /dev/null
+++ b/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]} {
diff --git a/tcl.spec b/tcl.spec
index f8a3f55..21d74a4 100644
--- a/tcl.spec
+++ b/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)