From eaff4a4558252262dba4a7026180fedb93079080 Mon Sep 17 00:00:00 2001
From: Nikola Pajkovsky <npajkovs@fedoraproject.org>
Date: Thu, 21 Jan 2010 15:40:07 +0000
Subject: [PATCH] fix sigabort patch(add +1 to length)

---
 tcl-8.5.7-sigabrt.patch | 2 +-
 tcl.spec                | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/tcl-8.5.7-sigabrt.patch b/tcl-8.5.7-sigabrt.patch
index a1d46cd..6e1c4d1 100644
--- a/tcl-8.5.7-sigabrt.patch
+++ b/tcl-8.5.7-sigabrt.patch
@@ -7,7 +7,7 @@ diff -ruNp tcl8.5.7/generic/tclTrace.c tcl8.5.7-master/generic/tclTrace.c
  	    flags |= TCL_TRACE_UNSETS | TCL_TRACE_RESULT_OBJECT;
 -	    strcpy(ctvarPtr->traceCmdInfo.command, command);
 +	    //strcpy(ctvarPtr->traceCmdInfo.command, command);
-+        memcpy(ctvarPtr->traceCmdInfo.command, command, length );
++        memcpy(ctvarPtr->traceCmdInfo.command, command, length + 1);
  	    ctvarPtr->traceInfo.traceProc = TraceVarProc;
  	    ctvarPtr->traceInfo.clientData = (ClientData)
  		    &ctvarPtr->traceCmdInfo;
diff --git a/tcl.spec b/tcl.spec
index d5e5f25..c5ac54a 100644
--- a/tcl.spec
+++ b/tcl.spec
@@ -5,7 +5,7 @@
 Summary: Tool Command Language, pronounced tickle
 Name: tcl
 Version: %{vers}
-Release: 4%{?dist}
+Release: 5%{?dist}
 Epoch: 1
 License: TCL
 Group: Development/Languages
@@ -138,6 +138,9 @@ rm -rf $RPM_BUILD_ROOT
 %{_libdir}/%{name}8.5/%{name}Config.sh
 
 %changelog
+* Thu Jan 21 2010 Nikola Pajkovsky <npajkovs@redhat.com> - 1:8.5.7-5
+- fix sigabort patch(add +1 to length)
+
 * Mon Aug 10 2009 Nikola Pajkovsky <npajkovs@redhat.com> - 1:8.5.7-4
 - Enable SEPolicy for libtcl. 
 - fix sigabort