Bug#824046: libtkx-perl: FTBFS: Tcl error 'Foo at /usr/lib/x86_64-linux-gnu/perl5/5.22/Tcl.pm line 585.\n' while invoking scalar result call

[gregor herrmann]

Control: tag -1 + confirmed

On Wed, 11 May 2016 17:34:56 +0100, Chris Lamb wrote:

> Source: libtkx-perl
> Version: 1.09-1
> Severity: serious
> Justification: fails to build from source

>   # Test 18 got: "Tcl error 'Foo at /usr/lib/x86_64-linux-gnu/perl5/5.22/Tcl.pm line 585.\n' while invoking scalar result call:\n\t\"error Foo\" at /usr/lib/x86_64-linux-gnu/perl5/5.22/Tcl.pm line 588.\n\tTcl::call(Tcl=SCALAR(0x178d220), \"error\", \"Foo\") called at /home/lamby/temp/cdt.20160511172312.jG2eA83qLd.libtkx-perl/libtkx-perl-1.09/blib/lib/Tkx.pm line 329\n\teval {...} called at /home/lamby/temp/cdt.20160511172312.jG2eA83qLd.libtkx-perl/libtkx-perl-1.09/blib/lib/Tkx.pm line 329\n\tTkx::i::call(\"error\", \"Foo\") called at /home/lamby/temp/cdt.20160511172312.jG2eA83qLd.libtkx-perl/libtkx-perl-1.09/blib/lib/Tkx.pm line 51\n\tTkx::AUTOLOAD(\"Foo\") called at t/tcl.t line 38\n\teval {...} called at t/tcl.t line 38\n" (t/tcl.t at line 39)
>   #    Expected: "Foo at t/tcl.t line 38.\n"
>   #  t/tcl.t line 39 is: ok($@, "Foo at @{[__FILE__]} line @{[__LINE__ - 1]}.\n");
>   t/tcl.t ........... 
>   1..18
>   # Running under perl version 5.022002 for linux
>   # Current time local: Wed May 11 17:23:44 2016
>   # Current time GMT:   Wed May 11 16:23:44 2016
>   # Using Test.pm version 1.26
>   ok 1
>   ok 2
>   ok 3
>   ok 4
>   ok 5
>   ok 6
>   ok 7
>   ok 8
>   ok 9
>   ok 10
>   ok 11
>   ok 12
>   ok 13
>   ok 14
>   ok 15
>   ok 16
>   ok 17
>   not ok 18
>   Failed 1/18 subtests 
>   	(in cleanup) Can't call method "DeleteCommand" on an undefined value at /usr/lib/x86_64-linux-gnu/perl5/5.22/Tcl.pm line 655 during global destruction.

This seems to be caused by a recent change in libtcl-perl, which grew
a Tcl::Code::DESTROY method; it looks like the error doesn't refer to
the calling script (t/tcl.t) any more but to the module.

Not sure if we should just relax the test or if there's something to
be done in Tcl (all those warnings about DeleteCommand, also in the
same new method, don't like good either).


Cheers,
gregor

-- 
 .''`.  Homepage https://info.comodo.priv.at/ - OpenPGP key 0xBB3A68018649AA06
 : :' : Debian GNU/Linux user, admin, and developer -  https://www.debian.org/
 `. `'  Member of VIBE!AT & SPI, fellow of the Free Software Foundation Europe
   `-   NP: Bettina Wegner: Das Messer
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 949 bytes
Desc: Digital Signature
URL: <http://lists.alioth.debian.org/pipermail/pkg-perl-maintainers/attachments/20160511/af9a4caa/attachment.sig>