Re: Solaris Coredump on "$top->update"




Hi,

works fine on perl:
Summary of my perl5 (revision 5.0 version 8 subversion 3) configuration:
Platform:
osname=solaris, osvers=2.7, archname=sun4-solaris
uname='sunos sunb20 5.7 generic_106541-20 sun4u sparc sunw,ultra-4 '

Tk:
Version Installed 804.027


Greg London wrote:
This is a multi-part message in MIME format.

------_=_NextPart_001_01C6A460.2E3D0CB3
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

It doesn't crash on my Solaris machine running perl 5.6
Very odd.
=20

________________________________

From: owner-ptk@xxxxxxxxxxxxxxxxxx on behalf of Craig Votava
Sent: Mon 7/10/2006 3:37 PM
To: PerlTk List
Subject: Solaris Coredump on "$top->update"



Folks-

The attached perl program seems to be causing a
core-dump for me on Solaris with Perl 5.8 and
Tk-804.027. I'm still investigating but thought
I'd do a quick ping here to see if anybody has
already fought this one.

Any pointers are appreciated!

Thanks

-Craig

#!/opt/exp/bin/perl5.8 -w

use Tk;
use strict;

# Create a new main window & title it...
my $top =3D MainWindow->new;
$top->title("Be Careful...");

# The following line causes a coredump on suns...
$top->update;

# Create a text label...
my $label =3D $top->Label(-text =3D> "Whatever you do, don't press this=20
button");

# Have the grid manager, manage it...
$label->grid;

# Create a button & have the grid manager manage it (all in one=20
statement)...
my $button =3D $top->Button(-background =3D> 'red',
-text =3D> 'Panic',
-command =3D> sub {
print "I TOLD YOU NOT TO DO THAT...\n";
$top->destroy;
})->grid;

# Run the GUI...
MainLoop;

-++**=3D=3D--++**=3D=3D--++**=3D=3D--++**=3D=3D--++**=3D=3D--++**=3D=3D--=
++**=3D=3D
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@xxxxxxxxxxxxxxxxxx



------_=_NextPart_001_01C6A460.2E3D0CB3
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">=0A=
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">=0A=
<HTML>=0A=
<HEAD>=0A=
=0A=
<META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
6.5.7226.0">=0A=
<TITLE>Solaris Coredump on &quot;$top-&gt;update&quot;</TITLE>=0A=
</HEAD>=0A=
<BODY>=0A=
<DIV id=3DidOWAReplyText18745 dir=3Dltr>=0A=
<DIV dir=3Dltr><FONT face=3DArial color=3D#000000 size=3D2>It doesn't =
crash on my =0A=
Solaris machine running perl 5.6</FONT></DIV>=0A=
<DIV dir=3Dltr><FONT face=3DArial size=3D2>Very odd.</FONT></DIV>=0A=
<DIV dir=3Dltr>&nbsp;</DIV></DIV>=0A=
<DIV dir=3Dltr><BR>=0A=
<HR tabIndex=3D-1>=0A=
<FONT face=3DTahoma size=3D2><B>From:</B> owner-ptk@xxxxxxxxxxxxxxxxxx =
on behalf of =0A=
Craig Votava<BR><B>Sent:</B> Mon 7/10/2006 3:37 PM<BR><B>To:</B> PerlTk =0A=
List<BR><B>Subject:</B> Solaris Coredump on =0A=
"$top-&gt;update"<BR></FONT><BR></DIV>=0A=
<DIV>=0A=
<P><FONT size=3D2>Folks-<BR><BR>The attached perl program seems to be =
causing =0A=
a<BR>core-dump for me on Solaris with Perl 5.8 and<BR>Tk-804.027. I'm =
still =0A=
investigating but thought<BR>I'd do a quick ping here to see if anybody =0A=
has<BR>already fought this one.<BR><BR>Any pointers are =0A=
appreciated!<BR><BR>Thanks<BR><BR>-Craig<BR><BR>#!/opt/exp/bin/perl5.8 =0A=
-w<BR><BR>use Tk;<BR>use strict;<BR><BR># Create a new main window &amp; =
title =0A=
it...<BR>my $top =3D MainWindow-&gt;new;<BR>$top-&gt;title("Be =0A=
Careful...");<BR><BR># The following line causes a coredump on =0A=
suns...<BR>$top-&gt;update;<BR><BR># Create a text label...<BR>my $label =
=3D =0A=
$top-&gt;Label(-text =3D&gt; "Whatever you do, don't press =0A=
this&nbsp;<BR>button");<BR><BR># Have the grid manager, manage =0A=
it...<BR>$label-&gt;grid;<BR><BR># Create a button &amp; have the grid =
manager =0A=
manage it (all in one&nbsp;<BR>statement)...<BR>my $button =3D =0A=
$top-&gt;Button(-background =3D&gt; =0A=
'red',<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =0A=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =0A=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -text =3D&gt; =0A=
'Panic',<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =0A=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =0A=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -command =3D&gt; sub =0A=
{<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =0A=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =0A=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =0A=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print "I TOLD YOU NOT TO DO =0A=
THAT...\n";<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =0A=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =0A=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =0A=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =0A=
$top-&gt;destroy;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =0A=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =0A=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; })-&gt;grid;<BR><BR># Run the =0A=
GUI...<BR>MainLoop;<BR><BR>-++**=3D=3D--++**=3D=3D--++**=3D=3D--++**=3D=3D=
--++**=3D=3D--++**=3D=3D--++**=3D=3D<BR>This =0A=
message was posted through the Stanford campus mailing =
list<BR>server.&nbsp; If =0A=
you wish to unsubscribe from this mailing list, send the<BR>message body =
of =0A=
"unsubscribe ptk" to =0A=
majordomo@xxxxxxxxxxxxxxxxxx<BR></FONT></P></DIV>=0A=
=0A=
</BODY>=0A=
</HTML>
------_=_NextPart_001_01C6A460.2E3D0CB3--
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@xxxxxxxxxxxxxxxxxx


.