Hi,
yesterday I wrote that I ran into a problem which
stopped my perl debugger.
Here is a short quote of my code which caused the problem:
use Inline Java => 'STUDY',
STUDY => ['JMSEnqueue'] ,
SHARED_JVM => 1;
sub new {
my $class = shift;
return JMSEnqueueProvider::JMSEnqueue->new($ldapURL,$ldap1,$ldap2);
}
1;
I found out, that the ???.jdat-file (which is build by
magic in the background) had size 0.
So I wrote Java Code which wrapps my original Java class
- et voil� - xyz.jdat contains information and the debugger
works fine :-)
Here is an extract of the new code:
use Inline Java => "DATA";
sub new {
my $class = shift;
#return JMSEnqueueProvider::JMSEnqueue->new($ldapURL,$ldap1,$ldap2);
return JMSEnqueueProvider::PerlJMSEnqueue->new($ldapURL,$ldap1,$ldap2);
}
1;
__DATA__
__Java__
public class PerlJMSEnqueue {
JMSEnqueue e = null;
public PerlJMSEnqueue (String ldapURL,String ldap1, String ldap2) {
e = new JMSEnqueue(ldapURL,ldap1,ldap2);
}
public String initialize() throws Exception {
return e.initialize();
}
public String dispose() {
return e.dispose();
}
... and so on ...
Is there a chance that I could get a ???.jdat with usefull
information for the debugger without writing Java wrapper code?
Sincerely
Wilhelm