[libinline-java-perl] 199/398: Debugging stuff

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to tag 0.55
in repository libinline-java-perl.

commit fac554cf8387f07c863c5e1fe0c96e8a1db6c65f
Author: patrick_leb <>
Date:   Mon Jun 3 00:15:51 2002 +0000

    Debugging stuff
---
 Java/JNI.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Java/JNI.xs b/Java/JNI.xs
index b384c3e..d4556a5 100644
--- a/Java/JNI.xs
+++ b/Java/JNI.xs
@@ -15,7 +15,7 @@ typedef struct {
 	jobject	ijs ;
 	jmethodID jni_main_mid ;
 	jmethodID process_command_mid ;
-	jboolean debug ;
+	jint debug ;
 	int destroyed ;
 } InlineJavaJNIVM ;
 
@@ -138,7 +138,7 @@ new(CLASS, classpath, debug)
 	RETVAL->debug = debug ;
 	RETVAL->destroyed = 0 ;
 
-	options[0].optionString = (RETVAL->debug ? "-verbose" : "-verbose:") ;
+	options[0].optionString = ((RETVAL->debug > 5) ? "-verbose" : "-verbose:") ;
 	cp = (char *)malloc((strlen(classpath) + 128) * sizeof(char)) ;
 	sprintf(cp, "-Djava.class.path=%s", classpath) ;
 	options[1].optionString = cp ;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git