[perl-win32-gui-users] Win32::GUI and Fork - Page Faults

[Michael Alaly]

I am using perl 5.61 from ActiveState.
I am using Win32::GUI .558 binary install from ActiveState.

The following is a modified code snippet that I took from a post in the
Win32::GUI archived mailing list. The original post concerned crashing with
a simple Win32::GUI and fork. I simplified the original and I also have an
error when I click the button a few times in a row (sometimes its after 10,
other times its after 3 clicks).

I cannot understand why I am getting the page faults. The fork doesn't do
anything whatsoever. Is this a problem with Win32::GUI and thread safety or
is this a problem with perl's forking under windows?

Thanks in advance for any assistance,
Michael

---------
 use Win32::GUI;
 use Win32::API;

 my $win = Win32::GUI::Window->new (
  -top  => 0,
  -left  => 0,
  -width     => 200,
  -height    => 200,
     -minsize => 200,200
  -text  => "Main",
  -name  => "winMain",
 );

 my $download = $win->AddButton(
  -text  => "test",
  -left  => 100,
  -top  => 100,
  -height  => 25,
  -name  => "download",
 );

 sub download_Click {
  $download->Disable();
  if ($error=fork() ) {}
  else {
     $download->Enable();
     exit(0);
  }
  return 1;
 }

 sub winMain_Terminate {
  $win->Hide();
  return -1;
 }

 $win->Show ();
 Win32::GUI::Dialog();