[libinline-java-perl] 343/398: 0_49_92

Jonas Smedegaard dr at jones.dk
Thu Feb 26 11:43:21 UTC 2015


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 903155b40d15231dccd8a8e56dd8eae1c1e3dba7
Author: patrick_leb <>
Date:   Fri Apr 29 02:24:56 2005 +0000

    0_49_92
---
 CHANGES                                                       | 1 +
 Java.pm                                                       | 3 ++-
 Java/Array.pm                                                 | 2 +-
 Java/Callback.pm                                              | 2 +-
 Java/Class.pm                                                 | 2 +-
 Java/JNI.pm                                                   | 2 +-
 Java/JVM.pm                                                   | 2 +-
 Java/Object.pm                                                | 2 +-
 Java/PerlNatives/PerlNatives.pm                               | 2 +-
 Java/Portable.pm                                              | 2 +-
 Java/Protocol.pm                                              | 2 +-
 Java/Server.pm                                                | 2 +-
 Java/sources/org/perl/inline/java/InlineJavaServerThread.java | 1 +
 META.yml                                                      | 2 +-
 14 files changed, 15 insertions(+), 12 deletions(-)

diff --git a/CHANGES b/CHANGES
index 67e9ac3..37e375b 100644
--- a/CHANGES
+++ b/CHANGES
@@ -9,6 +9,7 @@ Revision history for Perl extension Inline::Java
     - Include patch by Ihab Awad that allows running the JVM server inside Tomcat
     - Fixed bug with longs over 32 bits in length and loosened boundary checking in numeric values
       since it was not portable
+    - Fixed bug (found by Dean Thayer) with socket not closed properly in Java
     - Other minor bug fixes
 
 0.49  
diff --git a/Java.pm b/Java.pm
index cf656f8..9182348 100644
--- a/Java.pm
+++ b/Java.pm
@@ -8,7 +8,7 @@ package Inline::Java ;
 use strict ;
 require 5.006 ;
 
-$Inline::Java::VERSION = '0.49_91' ;
+$Inline::Java::VERSION = '0.49_92' ;
 
 
 # DEBUG is set via the DEBUG config
@@ -69,6 +69,7 @@ sub done {
 	shutdown_JVM() ;
 	Inline::Java::debug(1, "exiting with $ec") ;
 	CORE::exit($ec) ;
+	exit($ec) ;
 }
 
 
diff --git a/Java/Array.pm b/Java/Array.pm
index f7b6f31..719b71b 100644
--- a/Java/Array.pm
+++ b/Java/Array.pm
@@ -4,7 +4,7 @@ package Inline::Java::Array ;
 use strict ;
 use Carp ;
 
-$Inline::Java::Array::VERSION = '0.49_91' ;
+$Inline::Java::Array::VERSION = '0.49_92' ;
 
 # Here we store as keys the knots and as values our blessed objects
 my $OBJECTS = {} ;
diff --git a/Java/Callback.pm b/Java/Callback.pm
index 5868cb5..0779254 100644
--- a/Java/Callback.pm
+++ b/Java/Callback.pm
@@ -3,7 +3,7 @@ package Inline::Java::Callback ;
 use strict ;
 use Carp ;
 
-$Inline::Java::Callback::VERSION = '0.49_91' ;
+$Inline::Java::Callback::VERSION = '0.49_92' ;
 
 $Inline::Java::Callback::OBJECT_HOOK = undef ;
 
diff --git a/Java/Class.pm b/Java/Class.pm
index c2130db..31b9c3b 100644
--- a/Java/Class.pm
+++ b/Java/Class.pm
@@ -3,7 +3,7 @@ package Inline::Java::Class ;
 use strict ;
 use Carp ;
 
-$Inline::Java::Class::VERSION = '0.49_91' ;
+$Inline::Java::Class::VERSION = '0.49_92' ;
 
 $Inline::Java::Class::MAX_SCORE = 10 ;
 
diff --git a/Java/JNI.pm b/Java/JNI.pm
index ea5573d..eabf071 100644
--- a/Java/JNI.pm
+++ b/Java/JNI.pm
@@ -4,7 +4,7 @@ package Inline::Java::JNI ;
 
 use strict ;
 
-$Inline::Java::JNI::VERSION = '0.49_91' ;
+$Inline::Java::JNI::VERSION = '0.49_92' ;
 
 use DynaLoader ;
 use Carp ;
diff --git a/Java/JVM.pm b/Java/JVM.pm
index 203676c..96b7162 100644
--- a/Java/JVM.pm
+++ b/Java/JVM.pm
@@ -8,7 +8,7 @@ use IPC::Open3 ;
 use IO::Socket ;
 use Inline::Java::Portable ;
 
-$Inline::Java::JVM::VERSION = '0.49_91' ;
+$Inline::Java::JVM::VERSION = '0.49_92' ;
 
 my %SIGS = () ;
 
diff --git a/Java/Object.pm b/Java/Object.pm
index 52d38d8..3d8657b 100644
--- a/Java/Object.pm
+++ b/Java/Object.pm
@@ -5,7 +5,7 @@ use strict ;
 use Inline::Java::Protocol ;
 use Carp ;
 
-$Inline::Java::Object::VERSION = '0.49_91' ;
+$Inline::Java::Object::VERSION = '0.49_92' ;
 
 # Here we store as keys the knots and as values our blessed private objects
 my $PRIVATES = {} ;
diff --git a/Java/PerlNatives/PerlNatives.pm b/Java/PerlNatives/PerlNatives.pm
index 0104852..8e05af0 100644
--- a/Java/PerlNatives/PerlNatives.pm
+++ b/Java/PerlNatives/PerlNatives.pm
@@ -2,6 +2,6 @@ package Inline::Java::PerlNatives ;
 
 use strict ;
 
-$Inline::Java::PerlNatives::VERSION = '0.49_91' ;
+$Inline::Java::PerlNatives::VERSION = '0.49_92' ;
 
 1 ;
diff --git a/Java/Portable.pm b/Java/Portable.pm
index 2b244b8..20b15ee 100644
--- a/Java/Portable.pm
+++ b/Java/Portable.pm
@@ -9,7 +9,7 @@ use Config ;
 use File::Find ;
 use File::Spec ;
 
-$Inline::Java::Portable::VERSION = '0.49_91' ;
+$Inline::Java::Portable::VERSION = '0.49_92' ;
 
 # Here is some code to figure out if we are running on command.com
 # shell under Windows.
diff --git a/Java/Protocol.pm b/Java/Protocol.pm
index b1e900e..3a8ce1a 100644
--- a/Java/Protocol.pm
+++ b/Java/Protocol.pm
@@ -5,7 +5,7 @@ use Inline::Java::Object ;
 use Inline::Java::Array ;
 use Carp ;
 
-$Inline::Java::Protocol::VERSION = '0.49_91' ;
+$Inline::Java::Protocol::VERSION = '0.49_92' ;
 
 my %CLASSPATH_ENTRIES = () ;
 
diff --git a/Java/Server.pm b/Java/Server.pm
index d0e72d9..3488128 100644
--- a/Java/Server.pm
+++ b/Java/Server.pm
@@ -13,7 +13,7 @@ require Inline::Java ;
 use File::Spec ;
 
 
-$Inline::Java::Server::VERSION = '0.49_91' ;
+$Inline::Java::Server::VERSION = '0.49_92' ;
 
 
 # Create a dummy Inline::Java object in order to 
diff --git a/Java/sources/org/perl/inline/java/InlineJavaServerThread.java b/Java/sources/org/perl/inline/java/InlineJavaServerThread.java
index 7c0248f..bd76f3b 100644
--- a/Java/sources/org/perl/inline/java/InlineJavaServerThread.java
+++ b/Java/sources/org/perl/inline/java/InlineJavaServerThread.java
@@ -54,6 +54,7 @@ class InlineJavaServerThread extends Thread {
 					bw.flush() ;
 				}
 				else {
+					client.close() ;
 					break ;
 				}
 			}
diff --git a/META.yml b/META.yml
index 7357da5..0b010d8 100644
--- a/META.yml
+++ b/META.yml
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Inline-Java
-version:      0.49_90
+version:      0.49_92
 version_from: Java.pm
 installdirs:  site
 requires:

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



More information about the Pkg-perl-cvs-commits mailing list