Bug #96280 for Tk: Tk segfaults under perl 5.20.0

Fri Jun 06 09:10:57 2014 bidulock [...] openss7.org - Ticket created

Subject:	Tk segfaults under perl 5.20.0
Date:	Fri, 6 Jun 2014 07:10:46 -0600
To:	bug-Tk [...] rt.cpan.org
From:	"Brian F. G. Bidulock" <bidulock [...] openss7.org>

Tk simply crashes when run under perl 5.20.0. The problem seems related to new UTF-8 handling in perl 5.20.0: Tcl_GetStringFromObj() performs a lot of perambulations and questionable use of things like sv_utf8_upgrade(), but I'm not sure. Note the differences in core dumps below betweem LANG=en_CA.utf8 and LANG= Tk-804.032 perl 5.20.0 Archlinux current: Linux 3.10.41-1-lts #1 SMP Sun Jun 1 08:55:32 UTC 2014 x86_64 GNU/Linux Archlinux bug report: https://bugs.archlinux.org/task/40692 $> ulimit -c 4096 $> LANG=en_CA.utf8 perl -MTk -e '$mw = new MainWindow' Segmentation fault (core dumped) $> sudo systemd-coredumpctl gdb Core was generated by `perl -MTk -e $mw = new MainWindow'. Program terminated with signal SIGSEGV, Segmentation fault. #0 0xb6f15c42 in Tcl_GetStringFromObj () from /usr/lib/perl5/vendor_perl/auto/Tk/Tk.so (gdb) bt #0 0xb6f15c42 in Tcl_GetStringFromObj () from /usr/lib/perl5/vendor_perl/auto/Tk/Tk.so #1 0xb6f15f3a in Tcl_GetString () from /usr/lib/perl5/vendor_perl/auto/Tk/Tk.so #2 0xb6f954e1 in Tk_SetOptions () from /usr/lib/perl5/vendor_perl/auto/Tk/Tk.so #3 0xb6f48213 in ConfigureFrame () from /usr/lib/perl5/vendor_perl/auto/Tk/Tk.so #4 0xb6f48e5c in CreateFrame.isra.3 () from /usr/lib/perl5/vendor_perl/auto/Tk/Tk.so #5 0xb6f24a90 in XS_Tk__MainWindow_Create () from /usr/lib/perl5/vendor_perl/auto/Tk/Tk.so #6 0xb766a08c in Perl_pp_entersub () from /usr/lib/perl5/core_perl/CORE/libperl.so #7 0xb7662af7 in Perl_runops_standard () from /usr/lib/perl5/core_perl/CORE/libperl.so #8 0xb75f66b3 in perl_run () from /usr/lib/perl5/core_perl/CORE/libperl.so #9 0x08048aaf in main () (gdb) $> ulimit -c 4096 $> LANG= perl -MTk -e '$mw = new MainWindow' Segmentation fault (core dumped) $> sudo systemd-coredumpctl gdb Core was generated by `perl -MTk -e $mw = new MainWindow'. Program terminated with signal SIGSEGV, Segmentation fault. #0 0xb76405ab in S_sv_uncow () from /usr/lib/perl5/core_perl/CORE/libperl.so (gdb) bt #0 0xb76405ab in S_sv_uncow () from /usr/lib/perl5/core_perl/CORE/libperl.so #1 0xb7645b4e in Perl_sv_utf8_upgrade_flags_grow () from /usr/lib/perl5/core_perl/CORE/libperl.so #2 0xb720ddf6 in Tcl_GetStringFromObj () from /usr/lib/perl5/vendor_perl/auto/Tk/Tk.so #3 0xb720df3a in Tcl_GetString () from /usr/lib/perl5/vendor_perl/auto/Tk/Tk.so #4 0xb728d4e1 in Tk_SetOptions () from /usr/lib/perl5/vendor_perl/auto/Tk/Tk.so #5 0xb7240213 in ConfigureFrame () from /usr/lib/perl5/vendor_perl/auto/Tk/Tk.so #6 0xb7240e5c in CreateFrame.isra.3 () from /usr/lib/perl5/vendor_perl/auto/Tk/Tk.so #7 0xb721ca90 in XS_Tk__MainWindow_Create () from /usr/lib/perl5/vendor_perl/auto/Tk/Tk.so #8 0xb763108c in Perl_pp_entersub () from /usr/lib/perl5/core_perl/CORE/libperl.so #9 0xb7629af7 in Perl_runops_standard () from /usr/lib/perl5/core_perl/CORE/libperl.so #10 0xb75bd6b3 in perl_run () from /usr/lib/perl5/core_perl/CORE/libperl.so #11 0x08048aaf in main () (gdb) --brian

Sat Jun 07 14:10:11 2014 bidulock [...] openss7.org - Correspondence added

Subject:	Re: [rt.cpan.org #96280] AutoReply: Tk segfaults under perl 5.20.0
Date:	Sat, 7 Jun 2014 12:10:01 -0600
To:	Bugs in Tk via RT <bug-Tk [...] rt.cpan.org>
From:	"Brian F. G. Bidulock" <bidulock [...] openss7.org>

It appears that the current git does not have this issue, so please close this ticket. --brian

Mon Jun 23 21:17:14 2014 wyant [...] cpan.org - Correspondence added

On Sat Jun 07 14:10:11 2014, BIDULOCK wrote: Show quoted text

> It appears that the current git does not have this issue, so > please close this ticket. > > --brian

Still present for me, built from commit 2eaf2e3fea8ea792e1c169ba9fd30992ff3b8084 which Git says is May 18 2014. $ perl -v This is perl 5, version 20, subversion 0 (v5.20.0) built for darwin-2level Copyright 1987-2014, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. $ uname -a Darwin some-machine.local 13.2.0 Darwin Kernel Version 13.2.0: Thu Apr 17 23:03:13 PDT 2014; root:xnu-2422.100.13~1/RELEASE_X86_64 x86_64

Mon Jun 23 21:17:15 2014 The RT System itself - Status changed from 'new' to 'open'

Mon Jun 23 21:28:54 2014 wyant [...] cpan.org - Correspondence added

PS - I see no CPAN Testers passes under the combination 5.20.0 and Mac OS X. However, I am able to both build and run Tk under Perl 5.18.2.

Tue Jun 24 15:37:37 2014 bidulock [...] openss7.org - Correspondence added

Subject:	Re: [rt.cpan.org #96280] Tk segfaults under perl 5.20.0
Date:	Mon, 23 Jun 2014 23:12:10 -0600
To:	Tom Wyant via RT <bug-Tk [...] rt.cpan.org>
From:	"Brian F. G. Bidulock" <bidulock [...] openss7.org>

Tom, On Mon, 23 Jun 2014, Tom Wyant via RT wrote: Show quoted text

> <URL: https://rt.cpan.org/Ticket/Display.html?id=96280 > > > On Sat Jun 07 14:10:11 2014, BIDULOCK wrote:

> > It appears that the current git does not have this issue, so > > please close this ticket. > > > > --brian

> > Still present for me, built from commit 2eaf2e3fea8ea792e1c169ba9fd30992ff3b8084 which Git says is May 18 2014. >

That commit works for me under Archlinux. $> perl -v This is perl 5, version 20, subversion 0 (v5.20.0) built for x86_64-linux-thread-multi Copyright 1987-2014, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. $> uname -a Linux habeascorpus.pigworks.openss7.net 3.15.1-1-ARCH #1 SMP Tue Jun 17 05:29:38 UTC 2014 x86_64 GNU/Linux --brian

Tue Jun 24 17:39:43 2014 SREZIC [...] cpan.org - Correspondence added

On 2014-06-23 21:28:54, WYANT wrote: Show quoted text

> PS - I see no CPAN Testers passes under the combination 5.20.0 and Mac > OS X. However, I am able to both build and run Tk under Perl 5.18.2.

See https://rt.cpan.org/Ticket/Display.html?id=96543

Sat Jan 31 14:17:51 2015 SREZIC [...] cpan.org - Correspondence added

On 2014-06-24 17:39:43, SREZIC wrote: Show quoted text

> On 2014-06-23 21:28:54, WYANT wrote:

> > PS - I see no CPAN Testers passes under the combination 5.20.0 and Mac > > OS X. However, I am able to both build and run Tk under Perl 5.18.2.

> > See https://rt.cpan.org/Ticket/Display.html?id=96543

Right now 804.032_501 was released which hopefully has a workaround for this problem. Reopen if the new version does not work for you.

Sat Jan 31 14:17:57 2015 SREZIC [...] cpan.org - Status changed from 'open' to 'resolved'

Sat Jan 31 14:18:03 2015 SREZIC [...] cpan.org - Fixed in 804.032_501 added