Package: perl-tk Version: 1:804.036+dfsg1-5 Severity: important Tags: forky sid User: debian-perl@lists.debian.org Usertags: perl-5.42-transition One of the modules in this package warns when used with Perl 5.42 (currently in experimental.) This also propagates to at least one another package, causing an autopkgtest regression there. https://ci.debian.net/packages/libc/libconfig-model-tkui-perl/unstable/amd64/64017476/ $ perl -we 'use Tk::Pane' Possible precedence problem between ! and numeric eq (==) at /usr/lib/x86_64-linux-gnu/perl5/5.42/Tk/Pane.pm line 297. If you want to test changes against Perl 5.42 in experimental and run into uninstallability problems, there is a test repository of rebuilt Debian sid packages for amd64 available at <https://perl.debian.net/>.
Control: severity -1 serious Perl 5.42 is now in sid, and this issue is causing a debci regression in libconfig-model-tkui-perl. https://ci.debian.net/packages/libc/libconfig-model-tkui-perl/testing/amd64/73772242/ Raising the severity accordingly.
Hi This bug breaks autopkgtest on libconfig-model-tkui-perl. As a consequence, this package was removed from testing along all its reverse dependencies. Could you create a new release so that these packages can go back to testing ? All the best
Hi Dominique, hi debian-devel@, I tried to fix perl-tk, because Bug#1113874, with no success so far. The upstream repository, https://github.com/eserte/perl-tk/ shows no change since half a year; I raised an issue about it at https://github.com/eserte/perl-tk/issues/123 Unfortunately, updating the source package to its current head from github does not fix the issue. Last but no least: I have very poor skills about Perl and its test framework. Thank you in advance for any help or suggestion. Best regards, Georges. Dominique Dumont a écrit :
Rewrapped slightly to try and improve readability:
my $do_gridded = (
$gridded eq 'both' || (
!$horz == (
$gridded ne 'x'
)
)
) ? 1 : 0;
Seems it's the !$horz == ( at fault - it's appalling code.
https://github.com/eserte/perl-tk/commit/3a13aed7a07cd82347695b9595234f629803aef3,
dating from 2025, does seem relevant.
Tk::Pane: fix precedence warning (new in perl 5.41.x)
Warning looked like this:
Possible precedence problem between ! and numeric eq (==) at
.../blib/lib/Tk/Pane.pm line 297
It resolves the precedence issue around $horz.
From (!$horz == to ((!$horz) ==
Check that this commit is retained after patching etc. during the
build. It's a small change, adding two brackets, easy to miss.
probably 10 years. But I saw the post of -devel and had a look anyway.
I haven't tried to build the package.
Just check that when you updated to latest upstream git that the effect
of this commit was retained and whether that changed the way that the
build failed or changed the messages. It's entirely possible that code
written this badly will cause secondary bugs.
PS - this is a horrible way to write code in any language and someone
should be ashamed of themselves to let that into a release. It
desperately needs to be expanded and tested in more detail.
Hello Neil, thank a lot for the patch, it does the trick! thank you also about the reminder about right style for code. Best regards, Georges. Neil Williams a écrit :
We believe that the bug you reported is fixed in the latest version of
perl-tk, which is due to be installed in the Debian FTP archive.
A summary of the changes between this version and the previous one is
attached.
Thank you for reporting the bug, which will now be closed. If you
have further comments please address them to 1113874@bugs.debian.org,
and the maintainer will reopen the bug report if appropriate.
Debian distribution maintenance software
pp.
Georges Khaznadar <georgesk@debian.org> (supplier of updated perl-tk package)
(This message was generated automatically at their request; if you
believe that there is a problem with it please contact the archive
administrators by mailing ftpmaster@ftp-master.debian.org)
Format: 1.8
Date: Mon, 10 Aug 2026 15:05:17 +0200
Source: perl-tk
Architecture: source
Version: 1:804.036+dfsg1-7
Distribution: unstable
Urgency: medium
Maintainer: Georges Khaznadar <georgesk@debian.org>
Changed-By: Georges Khaznadar <georgesk@debian.org>
Closes: 1113874
Changes:
perl-tk (1:804.036+dfsg1-7) unstable; urgency=medium
.
* patched file Tk/Pane.pm to isolate the "!" operator
(fixes-for-perl524.patch). Closes: #1113874
* fixed the name of this patch
(fixes-for-perl524.patch -> fixes-for-perl542.patch)
* modified the patch for Perl syntax, thanks to Neil Williams' proposal
Checksums-Sha1:
35e25d7d6081170555ba3277173f726c1e329d7d 2079 perl-tk_804.036+dfsg1-7.dsc
e4c8334002ce1e485196753992a48a9943d35add 19252 perl-tk_804.036+dfsg1-7.debian.tar.xz
27f56184f5e54e40adaf94745cf540abd42bb2ab 8239 perl-tk_804.036+dfsg1-7_source.buildinfo
Checksums-Sha256:
f8a395ce48095a7f49ff4fd1332067f4c5c2f5f9f465d4e7cebd74c66b177e62 2079 perl-tk_804.036+dfsg1-7.dsc
4be8747cf1dc2c2ee946ddc5d211298016a67d20031aa3d726b1ac8cafd7c457 19252 perl-tk_804.036+dfsg1-7.debian.tar.xz
4ad3bf5cf1a1e79a06f7aebcb76d979099ee5a4b11270ebe6ecd567dc8c05eb2 8239 perl-tk_804.036+dfsg1-7_source.buildinfo
Files:
6f7184bd0e570140b5ff85167a5d835a 2079 perl optional perl-tk_804.036+dfsg1-7.dsc
0b47f2dd7d6e94d843de33cd1bfe5fd5 19252 perl optional perl-tk_804.036+dfsg1-7.debian.tar.xz
b2dc61137ff11dd591c5e1c00cd644be 8239 perl optional perl-tk_804.036+dfsg1-7_source.buildinfo
-----BEGIN PGP SIGNATURE-----
iQJIBAEBCgAyFiEEM0CzZP9nFT+3zK6FHCgWkHE2rjkFAmp50roUHGdlb3JnZXNr
QGRlYmlhbi5vcmcACgkQHCgWkHE2rjnsuw//YY7rf7Gqu2qVk++xaRhdXXtkEnOF
PO3fSIGsBrttwDneMpxeBP9zcROeD204vv4Se/FAfoQWwh3Mt+tJIu/rEvwASkee
owGKFenSJ2FBVOJmn9H70cKFdcV0vQQJyrR4Dspvt7NE3y8XWyQsBuntHz81ETPU
lqhqWM7VyT1+nPFz/zzXWhoROGJ5iSGPFwVTGeUiXo4ECKj9DBwTG2hitoXF00E9
7QEicBI8qYWzVE8LhtY+QoWINaDHNRDRBnYcvSXb4Dp+97Fxn8VI3yNgk8DtsFum
kJvgq662MVmbfQb/ATARkBMJyZo8mznCOmBbP8BoEeXiwlsSn2esZiTeaILuWJ1c
zIR71dmwwKa1kCleeJcZhPbPfVzV2AC6kwmf+K16u92YaGeoS7uEu51WZC1gFkbM
xWSRbGQx8EhPyczGXZL0d+QQL4qxDQqv8xG5fqdGtnM0suq9BPsd6mGzDIVex6D0
2AE+jlhIddUUggBPJdJM7T6ANeSZ4t0NWf4/6woOayMBnkyUKzPlZkAab8GIWf6V
RhZiB2sbAMErHzCvDNCZWNQNrBHWIH9ZepT2NY40bX4qX37ZiZBtrU58HF8ivQoJ
/03BGHFOG3m1fk+tTRZ8fFcSQLBggwVxng57vdW1h2BTHrwiTJRbXHXsa/lMJrYV
LVLqhrBFgQc9R/M=
=dLWh
-----END PGP SIGNATURE-----
Hi Unfortunately, the last version of the patch is wrong. Line [1] should be: (!$horz) == ( and not: !$horz == ( All the best [1] https://salsa.debian.org/georgesk/perl-tk/-/blame/master/debian/patches/fixes-for-perl542.patch?ref_type=heads#L17
(dropped debian-devel@ but added debian-perl@ instead) Hi, this bug was closed with the 1:804.036+dfsg1-7 upload, but the bug is unfortunately still present, as seen with this: # perl -we 'use Tk::Pane' Possible precedence problem between ! and numeric eq (==) at /usr/lib/x86_64-linux-gnu/perl5/5.42/Tk/Pane.pm line 302. So reopening. To the contrary, my tests indicate that the attached patch from https://github.com/eserte/perl-tk/commit/3a13aed7a07cd82347695b9595234f629803aef3 fixes the issue. Please use this instead of the current ineffective patch. Have you considered moving perl-tk to the pkg-perl group maintenance? I think it would fit there well. See https://perl-team.pages.debian.net/ for more information. Hope this helps. Thank you for maintaining perl-tk.