Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package tcl for openSUSE:Factory checked in
at 2025-05-07 19:14:26
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/tcl (Old)
and /work/SRC/openSUSE:Factory/.tcl.new.30101 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "tcl"
Wed May 7 19:14:26 2025 rev:73 rq:1274996 version:8.6.16
Changes:
--------
--- /work/SRC/openSUSE:Factory/tcl/tcl.changes 2025-04-15 16:38:38.684827361
+0200
+++ /work/SRC/openSUSE:Factory/.tcl.new.30101/tcl.changes 2025-05-07
19:14:28.942240988 +0200
@@ -1,0 +2,6 @@
+Tue Apr 29 15:46:07 UTC 2025 - Reinhard Max <m...@suse.com>
+
+- Add tcl-fix-socket-13.1.patch to avoid a race condition in the
+ socket-13.1 test.
+
+-------------------------------------------------------------------
New:
----
tcl-fix-socket-13.1.patch
BETA DEBUG BEGIN:
New:
- Add tcl-fix-socket-13.1.patch to avoid a race condition in the
socket-13.1 test.
BETA DEBUG END:
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ tcl.spec ++++++
--- /var/tmp/diff_new_pack.ZGZOr6/_old 2025-05-07 19:14:29.850278677 +0200
+++ /var/tmp/diff_new_pack.ZGZOr6/_new 2025-05-07 19:14:29.854278843 +0200
@@ -48,6 +48,7 @@
Source1: tcl-rpmlintrc
Source2: baselibs.conf
Source3: macros.tcl
+Patch0: tcl-fix-socket-13.1.patch
BuildRequires: autoconf
BuildRequires: pkg-config
BuildRequires: zlib-devel
@@ -87,6 +88,7 @@
%prep
%setup -q -n %name%version
+%patch -P 0
if ! test -d pkgs/itcl%itclver; then
: New itcl version: pkgs/itcl* . Please update the %%itclver macro
acordingly.
exit 1
++++++ tcl-fix-socket-13.1.patch ++++++
--- tests/socket.test 2025-04-29 17:37:07.745683933 +0200
+++ tests/socket.test 2025-04-29 17:26:42.669773969 +0200
@@ -1809,7 +1809,7 @@
test socket_$af-13.1 {Testing use of shared socket between two threads} -body {
# create a thread
- set serverthread [thread::create -preserved [string map [list @localhost@
$localhost] {
+ set serverthread [thread::create -joinable [string map [list @localhost@
$localhost] {
set f [socket -server accept -myaddr @localhost@ 0]
set listen [lindex [fconfigure $f -sockname] 2]
proc accept {s a p} {
@@ -1840,7 +1840,7 @@
gets $s result
}
close $s
- thread::release $serverthread
+ thread::join $serverthread
append result " " [llength [thread::names]]
} -result {hello 1} -constraints [list socket supported_$af thread]
Index: tests/socket.test
==================================================================
