Skip Menu |

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 74612
Status: open
Priority: 0/
Queue: Tk
People
Owner: Nobody in particular
Requestors: bitcard.org [...] huntermonroe.com
Cc:
AdminCc:
Bug Information
Severity: Critical
Broken in: 804.030
Fixed in: (no value)

History Show all quoted text
  Wed Feb 01 19:27:13 2012 bitcard.org [...] huntermonroe.com - Ticket created
Subject: Tk regex search crashes debugger
This runs fine but causes a SEGV crash in the debugger on multiple platforms and versions of Perl: use Tk; my $m = MainWindow->new; my $t = $m->Text->pack; $t->search('-regexp', '', '1.0', 'end'); # debugger crash For instance, Linux with Perl 5.12.4 and Tk 804.029; Linux with Perl 5.14.2 and Tk 804.030; Windows Vista using Perl 5.10.1 and Tk 804.029. We want to be able to use the debugger to clean up a perl Tk editor with 20000+ lines of code. This tool called Guiguts is used to produce thousands of eBooks for Project Gutenberg each year. First priority is to work around the SEGV; second is to fix the SEGV.
  Fri May 17 17:50:52 2013 SREZIC [...] cpan.org - Correspondence added
On 2012-02-01 19:27:13, hmonroe wrote: Show quoted text
> This runs fine but causes a SEGV crash in the debugger on multiple > platforms and versions of Perl: > > use Tk; > my $m = MainWindow->new; > my $t = $m->Text->pack; > $t->search('-regexp', '', '1.0', 'end'); # debugger crash > > For instance, Linux with Perl 5.12.4 and Tk 804.029; Linux with Perl > 5.14.2 and Tk 804.030; Windows Vista using Perl 5.10.1 and Tk 804.029. > > We want to be able to use the debugger to clean up a perl Tk editor with > 20000+ lines of code. This tool called Guiguts is used to produce > thousands of eBooks for Project Gutenberg each year. First priority is to > work around the SEGV; second is to fix the SEGV.
Confirmed also on FreeBSD using Tk 804.030: Signal SEGV at /usr/local/lib/perl5/site_perl/5.12.4/mach/Tk.pm line 251. Tk::__ANON__[/usr/local/lib/perl5/site_perl/5.12.4/mach/Tk.pm:251]('Tk::Text=HASH(0x804f59c60)', '-regexp', '', 1.0, 'end') called at crash.pl line 20 [1] 64653 abort perl -d crash.pl
  Fri May 17 17:50:52 2013 The RT System itself - Status changed from 'new' to 'open'