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

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

________________________________

From: [email protected] 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 = MainWindow->new;
$top->title("Be Careful...");

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

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

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

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

# Run the GUI...
MainLoop;

-++**==--++**==--++**==--++**==--++**==--++**==--++**==
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 [email protected]