Hi All,
I have code that has been in Production for almost 2 years running many
times per day flawlessly. I am interacting with a 3rd party DLL (WS_FTP
Secure Dev Kit) which acts as a COM server. About 1.5 months ago and
yesterday the DLL caused my Perl exe to crash; the crash should have
been trapped by eval blocks, but wasn't...
Here is the sub (OO Method) where I execute the new method:
# Create a new WSFTP API object #
sub createWSFTPComObject
{
my $self = shift;
my $objRef = Win32::OLE->new('WsftpSDK.WsftpApi') || die
"\nWSFTP.pm - Unable to instantiate WS_FTP API object, error: $!";
if ($objRef == undef)
{
print "\nWSFTP.pm - Unable to create WS_FTP API
Object!";
die "\nWSFTP.pm - $!";
}
if ($self->{_displayMode} == 3)
{
print "\nWSFTP.pm - Created WS_FTP API Object "
. $objRef;
}
return $objRef;
}
I am using ActivePerl 5.8.4.810 packaged to an exe using PDK 5.3. The
code is running on a Windows 2003 server.
Thanks,
Nick B.
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
