[perl-win32-gui-users] Problem looking for a solution

[Syl]

I have the following general structure that I am using to gather some
intitialization data from the user.

my $errormsg;
do {
   setup();
   errorcheck();
  } until !$errormsg;

sub setup { ... create GUI initialization window with user input fields and
Win32::GUI::Dialog(); }
sub OKbutton_Click { .. gather data and return (-1); }
sub ::window_Terminate { return (-1); }
sub errorcheck { ... check for errors in user input fields. If error return
$errormsg else return(-1) )

For some reason I cannot figure out why main:: keeps creating new windows
when there is an error and these windows cannot be terminated with
OKbutton_Click or ::window_Terminate.

Any suggestions?


Syl