Using PerlCtrl I've created an ActiveX Control that I'm seeing some issues with. When I call my control via a VBScript it functions as expected and the DialogBox displays fine.
 
However, when the 3rd party application that I wrote the control for calls the control, the DialogBox never appears. I've redirected stdout/err to a file and added the diagnostic package to my code.
 
The point in my code where the error is occurring is:
 
 my $main = Win32::GUI::DialogBox->new(
                 -name   => "Main",
                 -text => "Config",
                 -width  => 314,
                 -height => 347,
                 -top => 200,
                 -left => 200,
          );
 
And the error that is being produced is:
 
   Use of uninitialized value in subroutine entry at /PerlApp/Win32/GUI.pm line 505 (#1)
 
I took a peek at the source for GUI.pm and line 505 is:
 
    my $handle = Win32::GUI::Create($self, $type, @input);
 
So I took the liberty of adding some Data::Dumper calls to GUI.pm preceding the above line for $self, $type, and @input. The results were:
 
self:
$VAR1 = bless( {}, 'Win32::GUI::DialogBox' );
 
type:
$VAR1 = 1;

input:
$VAR1 = [
          '-name',
          'Main',
          '-text',
          'Config',
          '-width',
          314,
          '-height',
          347,
          '-top',
          200,
          '-left',
          200
        ];
 
This obviously shows that the variables in question do in fact contain data.
 
So before I go nuts following this deeper into GUI.pm and adding debug statements to the Create() function and so on, does anyone have any ideas? Also, please advise me if this thread would be better suited in the PDK mailing list.
 
-Dave