Segfault on trivial program

I am using WxPerl 0.27,  Perl v5.8.5 built for i386-linux-thread-mult on
Fedora 3.

Here is an example of a segfault and is caused by the SetSizer line. You
get the segfault when the program is terminated.
When the SetSizer line is removed, the program terminates without a
segfault.

Does anyone have any ideas why this is happening?

Thanks,

Peter

#!/usr/bin/perl
use Wx;

package MyApp;

use strict;
use vars qw(@ISA);

@ISA=qw(Wx::App);

sub OnInit {
  my ($this)  = @_;
  my ($frame)  = MyFrame->new("Minimal wxPerl app",
                              Wx::Point->new(50,50),
                              Wx::Size->new(450,350)
                             );
  $this->SetTopWindow($frame);
  $frame->Show(1);
  return 1;
}

package MyFrame;

use strict;
use vars qw(@ISA);

@ISA=qw(Wx::Frame);
use Wx qw(:everything);

sub new {
  my ($class) = shift;
  my ($title,$point,$size) = @_ ; 
  my ($this) = $class->SUPER::new(undef, -1, $title, $point, $size);

  my $tsz = Wx::BoxSizer->new( wxVERTICAL );
  my $fr = Wx::BoxSizer->new( wxHORIZONTAL ); 
  $tsz->Add( $fr, 1, wxGROW );
  $fr->Add( Wx::Button->new($this,-1,'Button 2'),0,0);
  $tsz->Add( $fr, 1, wxGROW );
 
  $this->SetAutoLayout(1);
  $this->SetSizer($tsz);
  $tsz->Fit($this);
  $tsz->SetSizeHints($this);
  
  return $this;
}

package main;
my ($app)  = MyApp->new();
$app->MainLoop();





-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642