[libinline-java-perl] 201/398: 0.33 release candidate 1

[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 8bd5d22f02d24f16571cff2cf22c70164282f88a
Author: patrick_leb <>
Date:   Fri Jun 7 13:40:06 2002 +0000

    0.33 release candidate 1
---
 Java.pod    | 10 ++++++++--
 Java/JVM.pm |  2 +-
 t/t1.pl     | 11 +++++------
 3 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/Java.pod b/Java.pod
index ffe61ae..df435bc 100644
--- a/Java.pod
+++ b/Java.pod
@@ -153,8 +153,14 @@ behavior of C<Inline::Java>:
       make use of the same JVM.
 
    DEBUG:
-      Enables debugging info
-      Ex: DEBUG => 1
+      Enables debugging info. Debugging now uses levels (1 through 5)
+      that loosely follow these definitions:
+        1 = Major program steps
+        2 = Object creation/destruction
+        3 = Method/member accesses + packet dumps
+        4 = Everything else
+        5 = Data structure dumps
+      Ex: DEBUG => 2
 
    WARN_METHOD_SELECT:
       Throws a warning when C<Inline::Java> has to 'choose' between 
diff --git a/Java/JVM.pm b/Java/JVM.pm
index c3e040b..f45a9ff 100644
--- a/Java/JVM.pm
+++ b/Java/JVM.pm
@@ -42,7 +42,7 @@ sub new {
 
 		my $jni = new Inline::Java::JNI(
 			$ENV{CLASSPATH} || "",
-			(Inline::Java::get_DEBUG() ? 1 : 0),
+			Inline::Java::get_DEBUG(),
 		) ;
 		$jni->create_ijs() ;
 
diff --git a/t/t1.pl b/t/t1.pl
index 2d85283..ca11d9b 100755
--- a/t/t1.pl
+++ b/t/t1.pl
@@ -13,22 +13,21 @@ use Inline Config =>
 use Inline (
 	Java => qq|
 		class t  {
-			public static int s = 0 ;
+			public java.util.ArrayList al [] = new java.util.ArrayList[5] ;
 
 			public t(){
+				al[0] = new java.util.ArrayList() ;
 			}
 		}
 	|, 
 	# PRINT_INFO => 1,
+	STUDY => ['java.util.ArrayList'],
 ) ;
 
 Inline::Java::release_JVM() ;
 
 my $t = new t() ;
-$t::s++ ;
-$t::s++ ;
-print $t::s . "\n" ;
-
-
+$t->{al}->[0]->add("allo") ;
+print $t->{al}->[0]->get(0) . "\n" ;
 
 

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