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)



Subject: Tk regex search crashes debugger
Download (untitled) / with headers
text/plain 626b
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.
Download (untitled) / with headers
text/plain 1016b
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


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.