[Bug 628655] New: perl segfaults when joining a thread and using perl-Tk

[Red Hat Bugzilla]

Please do not reply directly to this email. All additional
comments should be made in the comments box of this bug.

Summary: perl segfaults when joining a thread and using perl-Tk

https://bugzilla.redhat.com/show_bug.cgi?id=628655

           Summary: perl segfaults when joining a thread and using perl-Tk
           Product: Fedora
           Version: 13
          Platform: x86_64
        OS/Version: Linux
            Status: NEW
          Severity: low
          Priority: low
         Component: perl-Tk
        AssignedTo: andreas.bierfert(a)lowlatency.de
        ReportedBy: rdevries1000(a)gmail.com
         QAContact: extras-qa(a)fedoraproject.org
                CC: andreas.bierfert(a)lowlatency.de,
                    fedora-perl-devel-list(a)redhat.com
    Classification: Fedora


Description of problem:
perl segfaults when joining a thread and using perl-Tk

Version-Release number of selected component (if applicable):
perl-5.10.1-116.fc13.x86_64

How reproducible:
Execute the next code:
use strict;
use Tk;
use threads;

sub init {
    print "exiting init\n";
}

my $thread1  = threads->create("init");

my $mw = MainWindow->new();
$thread1->join();
print "finished\n";
exit(0);

Steps to Reproduce:
execute the above code by:
perl threadtest.pl

Actual results:
perl ./threadtest.pl 
exiting init
finished
Segmentation fault (core dumped)

Exit value of process:
> echo $? 
139

Expected results:
perl ./threadtest.pl 
exiting init
finished

Exit value of process:
> echo $? 
0

Additional info:
using perl-Tk package: perl-Tk-804.028-11.fc13.x86_64

-- 
Configure bugmail: https://bugzilla.redhat.com/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are on the CC list for the bug.