fix sigabort patch(add +1 to length)
This commit is contained in:
parent
20c2f1d4a3
commit
eaff4a4558
@ -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;
|
flags |= TCL_TRACE_UNSETS | TCL_TRACE_RESULT_OBJECT;
|
||||||
- strcpy(ctvarPtr->traceCmdInfo.command, command);
|
- strcpy(ctvarPtr->traceCmdInfo.command, command);
|
||||||
+ //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.traceProc = TraceVarProc;
|
||||||
ctvarPtr->traceInfo.clientData = (ClientData)
|
ctvarPtr->traceInfo.clientData = (ClientData)
|
||||||
&ctvarPtr->traceCmdInfo;
|
&ctvarPtr->traceCmdInfo;
|
||||||
|
5
tcl.spec
5
tcl.spec
@ -5,7 +5,7 @@
|
|||||||
Summary: Tool Command Language, pronounced tickle
|
Summary: Tool Command Language, pronounced tickle
|
||||||
Name: tcl
|
Name: tcl
|
||||||
Version: %{vers}
|
Version: %{vers}
|
||||||
Release: 4%{?dist}
|
Release: 5%{?dist}
|
||||||
Epoch: 1
|
Epoch: 1
|
||||||
License: TCL
|
License: TCL
|
||||||
Group: Development/Languages
|
Group: Development/Languages
|
||||||
@ -138,6 +138,9 @@ rm -rf $RPM_BUILD_ROOT
|
|||||||
%{_libdir}/%{name}8.5/%{name}Config.sh
|
%{_libdir}/%{name}8.5/%{name}Config.sh
|
||||||
|
|
||||||
%changelog
|
%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
|
* Mon Aug 10 2009 Nikola Pajkovsky <npajkovs@redhat.com> - 1:8.5.7-4
|
||||||
- Enable SEPolicy for libtcl.
|
- Enable SEPolicy for libtcl.
|
||||||
- fix sigabort
|
- fix sigabort
|
||||||
|
Loading…
Reference in New Issue
Block a user