Re: [SPAM?]: Bug#348513: Segfault in Perl script

[Frank Küster <frank@debian.org>]

reassign 348513 perl-tk
severity important
thanks

Hilmar Preusse <hille42@web.de> wrote:

> On 19.01.06 Frank Küster (frank@debian.org) wrote:
>
> Hi all,
>
>> But the segfault should be investigated; I'm unsure whether I just
>> should reassign to perl - what do others think?
>> 
> Well, the perl package got recently a few bugs telling that it
> segfaults. Is at all clear, exactly where in the script the perl
> script segfaults?

At least it is reproducible, I had to set up my sid chroot in order to
allow to use the host machine's X display, and now I also get it.  It
seems to segfault in the following code:

sub fatalmsg {
    my($msg)=@_;
    print STDERR $msg; # also print to stderr
# create frame for main window
    my $main=new MainWindow;
    $main->resizable(0,0);
    $main->title("TeX Documentation Browser");
    $main->bind('<Control-q>'=>sub { exit });
    $main->bind('<Control-k>'=>sub { exit });
    my $msgframe=$main->Frame(-background=>"#ffcc99");
    my $cmdframe=$main->Frame;
    $msgframe->pack(-side=>'top');
    $cmdframe->pack(-side=>'bottom',-fill=>'x');
# make buttons for command frame
    my $Qbut=$cmdframe->Button(-text=>'Kill',%butcol,
                               -command=>sub { exit })->pack(-fill=>'x');
# define common default font for labels and text explicitly
    my @deffont=$Qbut->configure(-font);
# ensure readability on high-res screens (suggested by R.Kotucha)
    $deffont='Helvetica -16 bold' if &x_resolution > 1200;
    $Qbut->configure(-font=>$deffont);

When I run texdoctk in the debugger, it proceeds up to that line, 

main::x_resolution(/usr/bin/texdoctk:1631):
1631:	      open(XINF,"xwininfo -root|") or return 1200;
  DB<2> s
main::fatalmsg(/usr/bin/texdoctk:1693):
1693:	    $Qbut->configure(-font=>$deffont);
  DB<2> s
 

and then does nothing.

Regards, Frank
-- 
Frank Küster
Single Molecule Spectroscopy, Protein Folding @ Inst. f. Biochemie, Univ. Zürich
Debian Developer (teTeX)