Accepting request 247812 from devel:languages:tcl

- avoid %nil to pass download_files service

- Update license tag to SPDX 1.2.

- Update to 8.6.2:
  * TIP 429: New command [string cat].
  * [lsearch -integer], [lsort -integer] operate on wide ints.
       *** POTENTIAL INCOMPATIBILITY ***
  * [dict replace], [dict remove] return canonical dicts.
       *** POTENTIAL INCOMPATIBILITY ***
  * Improved ::env synchronization with environment.
  * transchans converted blocked writes to errors.
  * [info class subclasses ::oo::object] includes ::oo::class .
  * Fix: [chan configure -error] breaks [socket -async] connection.
  * Better handle NUL in filenames.
  * Fix: failures in nested ensemble bytecode compiler.
  * Fixed crashes in...
      - [apply {{} {while 1 {a {*}
      	[return -level 0 -code continue]}}}]
      - [apply {{} {namespace upvar a b [x]}}]
      - [coroutine X coroutine Y info frame]
      - multi-interp font teardown
      - oo chain deletion
  * Plugged memory leaks in...
      - execution traced coroutine deletion
      - [close [zlib push ... -dictionary ...]]
      - AtForkChild()
      - managing oo instance lists
  * Performance addressed in...
      - [lappend l $multiple $arg] compile: quadratic -> linear

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

tcl-unload.patch

@@ -1,24 +0,0 @@
---- generic/tclLoad.c.orig
-+++ generic/tclLoad.c
-@@ -795,9 +795,7 @@ Tcl_UnloadObjCmd(
- 
- 	    if (unLoadProcPtr != NULL) {
- 		Tcl_MutexLock(&packageMutex);
--		if ((pkgPtr->unloadProc != NULL) || (unLoadProcPtr == TclFSUnloadTempFile)) {
--		    (*unLoadProcPtr)(pkgPtr->loadHandle);
--		}
-+		(*unLoadProcPtr)(pkgPtr->loadHandle);
- 
- 		/*
- 		 * Remove this library from the loaded library cache.
-@@ -1154,9 +1152,7 @@ TclFinalizeLoad(void)
- 
- 	if (pkgPtr->fileName[0] != '\0') {
- 	    Tcl_FSUnloadFileProc *unLoadProcPtr = pkgPtr->unLoadProcPtr;
--	    if ((unLoadProcPtr != NULL)
--		    && ((pkgPtr->unloadProc != NULL)
--		    || (unLoadProcPtr == TclFSUnloadTempFile))) {
-+	    if (unLoadProcPtr != NULL) {
- 		(*unLoadProcPtr)(pkgPtr->loadHandle);
- 	    }
- 	}

tcl.changes

@@ -1,3 +1,61 @@
+-------------------------------------------------------------------
+Sat Sep  6 10:23:13 UTC 2014 - coolo@suse.de
+
+- avoid %nil to pass download_files service
+
+-------------------------------------------------------------------
+Mon Sep  1 07:45:22 UTC 2014 - fcrozat@suse.com
+
+- Update license tag to SPDX 1.2.
+
+-------------------------------------------------------------------
+Thu Aug 28 14:24:16 UTC 2014 - vwallfahrer@suse.com
+
+- Update to 8.6.2:
+  * TIP 429: New command [string cat].
+  * [lsearch -integer], [lsort -integer] operate on wide ints.
+       *** POTENTIAL INCOMPATIBILITY ***
+  * [dict replace], [dict remove] return canonical dicts.
+       *** POTENTIAL INCOMPATIBILITY ***
+  * Improved ::env synchronization with environment.
+  * transchans converted blocked writes to errors.
+  * [info class subclasses ::oo::object] includes ::oo::class .
+  * Fix: [chan configure -error] breaks [socket -async] connection.
+  * Better handle NUL in filenames.
+  * Fix: failures in nested ensemble bytecode compiler.
+  * Fixed crashes in...
+      - [apply {{} {while 1 {a {*}
+      	[return -level 0 -code continue]}}}]
+      - [apply {{} {namespace upvar a b [x]}}]
+      - [coroutine X coroutine Y info frame]
+      - multi-interp font teardown
+      - oo chain deletion
+  * Plugged memory leaks in...
+      - execution traced coroutine deletion
+      - [close [zlib push ... -dictionary ...]]
+      - AtForkChild()
+      - managing oo instance lists
+  * Performance addressed in...
+      - [lappend l $multiple $arg] compile: quadratic -> linear
+      - binary [chan copy]: move bytes instead of copy
+      - Improved bytecode: [catch], [foreach], [lmap], 
+      	num. conversion
+  * Bytecode compiled: [concat], [linsert], [namespace origin],
+      [next], [nextto], [string is], [string replace], 
+      [string tolower], [string totitle], [string toupper],
+      [string trim], [string trimleft],
+      [string trimright] [yieldto] 
+  * New package releases:
+      http 2.8.8:     Accept upper case schemes in URLs
+      tcltest 2.3.7:   cleanup runs before output comparisons
+      platform 1.0.13: Update macosx-* variant compatibilities
+      TclOO 1.0.2
+      itcl 4.0.1
+      thread 2.7.1
+      sqlite3 3.8.6
+      tdbc* 1.0.1
+- removed tcl-unload.patch and tcl.patch
+
 -------------------------------------------------------------------
 Fri Sep 20 07:53:52 UTC 2013 - max@suse.com
 

tcl.patch

@@ -1,32 +0,0 @@
-Index: tcl8.5.2/library/init.tcl
-===================================================================
---- library/init.tcl
-+++ library/init.tcl
-@@ -53,11 +53,6 @@ namespace eval tcl {
- 	    lappend ::auto_path $Dir
- 	}
-     }
--    set Dir [file join [file dirname [file dirname \
--	    [info nameofexecutable]]] lib]
--    if {$Dir ni $::auto_path} {
--	lappend ::auto_path $Dir
--    }
-     catch {
- 	foreach Dir $::tcl_pkgPath {
- 	    if {$Dir ni $::auto_path} {
-Index: tcl8.5.2/library/tm.tcl
-===================================================================
---- library/tm.tcl
-+++ library/tm.tcl
-@@ -310,10 +310,7 @@ proc ::tcl::tm::Defaults {} {
- 
-     # Note that we're using [::list], not [list] because [list] means
-     # something other than [::list] in this namespace.
--    roots [::list \
--	    [file dirname [info library]] \
--	    [file join [file dirname [file dirname $exe]] lib] \
--	    ]
-+    roots [lreverse $::tcl_pkgPath]
- 
-     if {$tcl_platform(platform) eq "windows"} {
- 	set sep ";"

tcl.spec

@@ -1,7 +1,7 @@
 #
 # spec file for package tcl
 #
-# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -18,13 +18,13 @@
 
 Name:           tcl
 Url:            http://www.tcl.tk
-Version:        8.6.1
+Version:        8.6.2
 Release:        0
-%define         rrc %nil
+%define         rrc %{nil}
 %define TCL_MINOR %(echo %version | cut -c1-3)
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 Summary:        The Tcl Programming Language
-License:        SUSE-TCL
+License:        TCL
 Group:          Development/Languages/Tcl
 # bug437293
 %ifarch ppc64
@@ -36,7 +36,7 @@ Provides:       tclsh%{TCL_MINOR}
 Obsoletes:      itcl < 4.0.0
 Provides:       itcl = 4.0.0
 PreReq:         /bin/rm
-Source0:        ftp://ftp.tcl.tk/pub/tcl/tcl8_6/%name%{version}%{rrc}-src.tar.gz
+Source0:        ftp://ftp.tcl.tk/pub/tcl/tcl8_6/%{name}%{version}%{rrc}-src.tar.gz
 Source1:        tcl-rpmlintrc
 Source2:        baselibs.conf
 Source3:        macros.tcl

tcl8.6.1-src.tar.gz

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

tcl8.6.2-src.tar.gz

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