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]