[libinline-java-perl] 160/398: Fixes

[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 43829209b0170639b8e1d66d5db11102ea049647
Author: patrick_leb <>
Date:   Tue Jan 29 18:32:46 2002 +0000

    Fixes
---
 Java/Init.pm        | 13 +++++++--
 t/10_6_shared_sim.t | 80 +++++++++++++++++++++--------------------------------
 2 files changed, 41 insertions(+), 52 deletions(-)

diff --git a/Java/Init.pm b/Java/Init.pm
index 774eee3..f44115c 100644
--- a/Java/Init.pm
+++ b/Java/Init.pm
@@ -86,6 +86,7 @@ public class InlineJavaServer {
 	// This constructor is used in server mode
 	InlineJavaServer(String[] argv) {
 		init() ;
+
 		debug = new Boolean(argv[0]).booleanValue() ;
 		port = Integer.parseInt(argv[1]) ;
 		shared_jvm = new Boolean(argv[2]).booleanValue() ;
@@ -125,6 +126,15 @@ public class InlineJavaServer {
 
 	private void init(){
 		instance = this ;
+
+		try {
+			System.out.close() ;
+			System.in.close() ;
+		}
+		catch (IOException e){
+			System.err.println("IO error: " + e.getMessage()) ;
+			System.err.flush() ;
+		}
 	}
 
 	
@@ -465,9 +475,6 @@ public class InlineJavaServer {
 				ijs.thread_objects.remove(getName()) ;
 			}
 		}
-
-		public void test(){
-		}
 	}
 }
 
diff --git a/t/10_6_shared_sim.t b/t/10_6_shared_sim.t
index d206057..35ae62c 100644
--- a/t/10_6_shared_sim.t
+++ b/t/10_6_shared_sim.t
@@ -4,6 +4,10 @@ use strict ;
 use Test ;
 
 
+use Inline Config => 
+           DIRECTORY => './_Inline_test';
+
+
 BEGIN {
 	if ($ENV{PERL_INLINE_JAVA_JNI}){
 		plan(tests => 0) ;
@@ -15,70 +19,48 @@ BEGIN {
 }
 
 
-use Inline Config => 
-           DIRECTORY => './_Inline_test' ;
 
-use Inline (
+Inline->bind(
 	Java => 't/shared.java',
 	SHARED_JVM => 1,
 	NAME => 't10',
 ) ;
-
-
-eval <<CODE1;
-	my \$t = new t10::t10() ;
-	{
-		ok(\$t->{i}++, 5) ;
-		ok(Inline::Java::i_am_JVM_owner()) ;
-		Inline::Java::release_JVM() ;
-		ok(! Inline::Java::i_am_JVM_owner()) ;
-	}
-CODE1
-if ($@){
-	die($@) ;
+{
+	my $t = new t10::t10() ;
+	ok($t->{i}++, 5) ;
+	ok(Inline::Java::i_am_JVM_owner()) ;
+	Inline::Java::release_JVM() ;
+	ok(! Inline::Java::i_am_JVM_owner()) ;
 }
-
 my $JVM1 = Inline::Java::__get_JVM() ;
 $JVM1->{destroyed} = 1 ;
 Inline::Java::__clear_JVM() ;
 
-eval <<CODE2;
-	use Inline (
-		Java => 't/shared.java',
-		SHARED_JVM => 1,
-		NAME => 't10',
-	) ;
 
-	my \$t = new t10::t10() ;
-	{
-		ok(\$t->{i}++, 6) ;
-		ok(! Inline::Java::i_am_JVM_owner()) ;
-	}
-CODE2
-if ($@){
-	die($@) ;
+Inline->bind(
+	Java => 't/shared.java',
+	SHARED_JVM => 1,
+	NAME => 't10',
+) ;
+{
+	my $t = new t10::t10() ;
+	ok($t->{i}++, 6) ;
+	ok(! Inline::Java::i_am_JVM_owner()) ;
 }
-
 my $JVM2 = Inline::Java::__get_JVM() ;
 $JVM2->{destroyed} = 1 ;
 Inline::Java::__clear_JVM() ;
 
-eval <<CODE3;
-	use Inline (
-		Java => 't/shared.java',
-		SHARED_JVM => 1,
-		NAME => 't10',
-	) ;
 
-	my \$t = new t10::t10() ;
-	{
-		ok(\$t->{i}, 7) ;
-		ok(! Inline::Java::i_am_JVM_owner()) ;
-		Inline::Java::capture_JVM() ;
-		ok(Inline::Java::i_am_JVM_owner()) ;
-	}
-CODE3
-if ($@){
-	die($@) ;
+Inline->bind(
+	Java => 't/shared.java',
+	SHARED_JVM => 1,
+	NAME => 't10',
+) ;
+{
+	my $t = new t10::t10() ;
+	ok($t->{i}, 7) ;
+	ok(! Inline::Java::i_am_JVM_owner()) ;
+	Inline::Java::capture_JVM() ;
+	ok(Inline::Java::i_am_JVM_owner()) ;
 }
-

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