Hello,
I am using ActivePerl as a scripting component to access the data structures
in a program I am writing. It uses the Microsoft ScriptControl.
Everything is working with one exception:
If I have a reference that is being passed into the script via the
ScriptControl, and I call a COM function through the IDispatch interface of
that reference, everything works as expected.
However, if I call a function that does not exist, say due to a typo in the
script, there is no error. I am using the 'strict' module. Is there a way
to make the script error and exit if it calls a function that doesn't exist
over COM, or similarly, calls a function with the wrong parameters?
Here is an example:
use strict;
sub foo {
my ($pPtr) = @_;
my $res = $pPtr->returnVal(); # Works fine
print "First Result: $res\n";
my $res2 = $pPtr->returnVl(); # Syntax error
print "Second Result: $res2\n";
return "Success";
}
Thanks in advance for any help.
-----------------------------
julian.m.catchen (@intel.com)
cas.intel @ chandler.az
phone : (480) 554-0293
numeric: (888) 650-7159
alpha : 8886507159
@pagenetmessage.net
-----------------------------
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/activeperl
