[libinline-java-perl] 25/398: *** empty log message ***

[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 5e0c9c03908e5e2a27fbc695b4594e8545d7ebea
Author: patrick <>
Date:   Fri Mar 9 16:18:48 2001 +0000

    *** empty log message ***
---
 Java.pm       |  2 +-
 Java/Array.pm | 20 +++++++++++++++++++-
 2 files changed, 20 insertions(+), 2 deletions(-)

diff --git a/Java.pm b/Java.pm
index 20bfde8..69954a4 100644
--- a/Java.pm
+++ b/Java.pm
@@ -603,7 +603,7 @@ sub load_jdat {
 		if ($line =~ /^class ([\w.\$]+)$/){
 			# We found a class definition
 			$current_class = $1 ;
-			$current_class =~ s/\$/::/g ;
+			$current_class =~ s/[\$.]/::/g ;
 			$d->{classes}->{$current_class} = {} ;
 			$d->{classes}->{$current_class}->{constructors} = undef ;
 			$d->{classes}->{$current_class}->{methods} = {} ;
diff --git a/Java/Array.pm b/Java/Array.pm
index d36889c..d5642f1 100644
--- a/Java/Array.pm
+++ b/Java/Array.pm
@@ -308,8 +308,26 @@ sub __flatten_array {
 	my $level = shift ;
 
 	my $extra = $ARRAYS->{$this} ;
+	my $dim = $extra->{dim} ;
+	my $last = scalar(@{$dim} - 1) ;
+	my $list = $extra->{map}->{$last}->{list} ;
+	my $nb_elem = scalar(@{$list}) ;
 		
-	
+	my $req_nb_elem = 1 ;
+	foreach my $d (@{$dim}){
+		$req_nb_elem *= $d ;
+	}
+
+	if ($req_nb_elem != $nb_elem){
+		my $ds = "[" . join("][", @{$dim}) . "]" ;
+		croak "Corrupted array: $ds should contain $req_nb_elem elements, has $nb_elem" ;
+	}
+
+	my $ret = [$dim, $list] ;
+
+	Inline::Java::debug_obj($ret) ;
+
+	return $ret ;
 }
 
 

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