Anyone had any luck getting it to work? I get the following error:
[Thu Jan 10 17:48:54 2002] [error] An eval() failed in Inline::glue:
Cannot find current script '/dev/null' at
/usr/local/lib/perl5/5.6.1/FindBin.pm line 166
BEGIN failed--compilation aborted at
/usr/local/lib/perl5/5.6.1/FindBin.pm line 166.
Compilation failed in require at
/usr/local/lib/perl5/site_perl/5.6.1/Inline/Java.pm line 26.
BEGIN failed--compilation aborted at
/usr/local/lib/perl5/site_perl/5.6.1/Inline/Java.pm line 26.
Compilation failed in require at (eval 32) line 3.
at /usr/local/apache/lib/perl/Apache/MuniCenter/JavaTest.pm line 18
BEGIN failed--compilation aborted at
/usr/local/apache/lib/perl/Apache/MuniCenter/JavaTest.pm line 35.
Compilation failed in require at (eval 30) line 3.
the 'test' script i'm trying to run follows (a similar script runs fine
on the CLI; this is the same except for the apache stuff):
package Apache::MuniCenter::JavaTest;
use strict;
use Apache::Constants qw(:common);
use Inline (
Java => qq|
class jobj {
public jobj() {
System.out.println("Initialised A New JObj
[this is a Java
object]");
}
public int add(int i, int j) {
return i + j;
}
public int multiply(int i, int j) {
return i * j;
}
}
|,
DIRECTORY => '/usr/local/apache/.Inline',
SHARED_JVM => 1
);
sub handler {
my $r = shift;
my $jobj = new jobj();
$r->print("Perl says that 2+2 is ", 2 + 2, "<br>");
$r->print("Java says that 2+2 is ", $jobj->add(2, 2), "<br>");
$r->print("Perl says that 75*3 is ", 75*3, "<br>");
$r->print("Java says that 75*3 is ", $jobj->multiply(75, 3), "<br>");
}
1;
Any help would be greatly appreciated.
-Brendan
--
Brendan W. McAdams | [EMAIL PROTECTED]
Senior Applications Developer | (646) 375-1140
TheMuniCenter, LLC | www.themunicenter.com
"Always listen to experts. They'll tell you what can't be done, and why.
Then do it."
- Robert A. Heinlein
rm -rf /bin/laden; chmod a+rwx /dev/freedom
signature.asc
Description: This is a digitally signed message part
