OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/tcl?expand=0&rev=10

tcl-dictcrash.patch

@@ -1,23 +0,0 @@
---- generic/tclCompCmds.c
-+++ generic/tclCompCmds.c
-@@ -1215,7 +1215,7 @@
- 	tokenPtr = TokenAfter(tokenPtr);
-     }
-     if (parsePtr->numWords > 4) {
--	TclEmitInstInt1(INST_CONCAT1, parsePtr->numWords-2, envPtr);
-+	TclEmitInstInt1(INST_CONCAT1, parsePtr->numWords-3, envPtr);
-     }
- 
-     /*
---- tests/dict.test
-+++ tests/dict.test
-@@ -414,6 +414,9 @@
-     catch {unset dictVar}
-     set result
- } {1 {can't set "dictVar": variable is array}}
-+test dict-13.10 {compiled dict append: crash case} {
-+    apply {{} {dict append dictVar a o k}}
-+} {a ok}
- 
- test dict-14.1 {dict for command: syntax} {
-     list [catch {dict for} msg] $msg

tcl-format.patch

@@ -1,38 +0,0 @@
-Index: generic/tclStringObj.c
-===================================================================
-RCS file: /cvsroot/tcl/tcl/generic/tclStringObj.c,v
-retrieving revision 1.70
-diff -u -r1.70 tclStringObj.c
---- generic/tclStringObj.c	28 Feb 2008 17:36:49 -0000	1.70
-+++ generic/tclStringObj.c	7 Apr 2008 15:12:36 -0000
-@@ -2003,8 +2003,8 @@
- 	    allocSegment = 1;
- 	    Tcl_IncrRefCount(segment);
- 
--	    if ((isNegative || gotPlus) && (useBig || (ch == 'd'))) {
--		Tcl_AppendToObj(segment, (isNegative ? "-" : "+"), 1);
-+	    if ((isNegative || gotPlus || gotSpace) && (useBig || (ch == 'd'))) {
-+		Tcl_AppendToObj(segment, (isNegative ? "-" : gotPlus ? "+" : " "), 1);
- 	    }
- 
- 	    if (gotHash) {
-Index: tests/format.test
-===================================================================
-RCS file: /cvsroot/tcl/tcl/tests/format.test,v
-retrieving revision 1.25
-diff -u -r1.25 format.test
---- tests/format.test	10 Jan 2008 16:09:23 -0000	1.25
-+++ tests/format.test	7 Apr 2008 15:12:36 -0000
-@@ -496,6 +496,12 @@
- test format-15.4 {testing %0..s 0 padding for chars/strings} {
-     format %05c 61
- } {0000=}
-+test format-15.5 {testing %d space padding for integers} {
-+    format "(% 1d) (% 1d)" 10 -10
-+} {( 10) (-10)}
-+test format-15.6 {testing %d plus padding for integers} {
-+    format "(%+1d) (%+1d)" 10 -10
-+} {(+10) (-10)}
- 
- set a "0123456789"
- set b ""

tcl.changes

@@ -1,3 +1,15 @@
+-------------------------------------------------------------------
+Thu Jul 10 16:48:09 CEST 2008 - max@suse.de
+
+- New release: 8.5.3:
+  * Add support for bidirectional [fcopy].
+  * Fix [fcopy] callbacks.
+  * Fix [chan postevent] crash.
+  * Fix broken [format {% d}].
+  * Fix [dict append] crash.
+  * Fix crash in [glob -dir {} a].
+  * Support TM packages in Safe Base.
+
 -------------------------------------------------------------------
 Wed May  7 11:44:53 CEST 2008 - max@suse.de
 

tcl.spec

@@ -1,5 +1,5 @@
 #
-# spec file for package tcl (Version 8.5.2)
+# spec file for package tcl (Version 8.5.3)
 #
 # Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany.
 # This file and all modifications and additions to the pristine
@@ -13,8 +13,8 @@
 
 Name:           tcl
 Url:            http://www.tcl.tk
-Version:        8.5.2
-Release:        9
+Version:        8.5.3
+Release:        1
 %define TCL_MINOR %(echo %version | cut -c1-3)
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 Summary:        The Tcl Programming Language
@@ -28,8 +28,6 @@ Source1:        tcl-rpmlintrc
 Source2:        baselibs.conf
 Source3:        macros.tcl
 Patch0:         tcl.patch
-Patch1:         tcl-format.patch
-Patch2:         tcl-dictcrash.patch
 
 %description
 Tcl (Tool Command Language) is a very powerful but easy to learn
@@ -71,8 +69,6 @@ Authors:
 %prep
 %setup -q -n %name%version
 %patch0
-%patch1
-%patch2
 
 %build
 cd unix
@@ -148,6 +144,15 @@ exit 0
 %_libdir/tclConfig.sh
 
 %changelog
+* Thu Jul 10 2008 max@suse.de
+- New release: 8.5.3:
+  * Add support for bidirectional [fcopy].
+  * Fix [fcopy] callbacks.
+  * Fix [chan postevent] crash.
+  * Fix broken [format {%% d}].
+  * Fix [dict append] crash.
+  * Fix crash in [glob -dir {} a].
+  * Support TM packages in Safe Base.
 * Wed May 07 2008 max@suse.de
 - Added a fix and a test for a crash in the [dict append] command.
 * Mon Apr 07 2008 max@suse.de

tcl8.5.2-src.tar.bz2

@@ -1,3 +0,0 @@
-version https://git-lfs.github.com/spec/v1
-oid sha256:3eef378343e793c1a7b35ffe0a1a1fc01dee06622a8df061f83955d20f814b0b
-size 3381211

tcl8.5.3-src.tar.bz2

@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:234909436a6f532a314820df9343e51f26d4d54903de294cc6ccc973c841ff73
+size 3328476