Trying to figure out why my code generates an internal error.
When I run perl script.pl(With just the code) it compiles fine.
When I run with perl -wc script.pl
I get:
test.pl syntax OK
(in cleanup) In method DESTROY of class main::sample::appsforyourdomain::AppsForYourDomainClient: Can't find object 0 for thread IJST-#0 at /usr/opt/perl5/lib/site_perl/5.8.2/Inline/Java/Object.pm line 357
at test.pl line 0
(in cleanup) Unknown Java object reference main::sample::appsforyourdomain::AppsForYourDomainClient=HASH(0x303479b8) at test.pl line 0
BEGIN {
my $libdir='/opt/tools/gims/css';
my @jars=();
opendir LIBDIR,$libdir or die $1;
while( my $fname = readdir(LIBDIR)){
next unless $fname =~ m@\.jar$@;
push @jars,$libdir . "/" . $fname;
}
$ENV{CLASSPATH} .= join(":",@jars,"/opt/tools/gims/css/appsforyourdomain.jar");
}
use Inline (
Java => 'STUDY',
CLASSPATH => '$ENV{CLASSPATH}',
STUDY => ['sample.appsforyourdomain.AppsForYourDomainClient'],
AUTOSTUDY => 1 ,
) ;
my $client = new sample::appsforyourdomain::AppsForYourDomainClient("$googu", "$googp", "$googd");
my $getacct = $client->retrieveUser($useresult);
I do know that the object it refers to is what is returned as $client
