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

Reply via email to