[libinline-java-perl] 37/398: *** empty log message ***
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:42:41 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 305413a49cb38f52a274f39e6a2ed31cfac12c0f
Author: patrick <>
Date: Tue Mar 13 20:26:12 2001 +0000
*** empty log message ***
---
Java/Array.pm | 15 +++++----------
1 file changed, 5 insertions(+), 10 deletions(-)
diff --git a/Java/Array.pm b/Java/Array.pm
index e4aa558..dad42b6 100644
--- a/Java/Array.pm
+++ b/Java/Array.pm
@@ -29,7 +29,6 @@ my $ARRAYS = {} ;
sub new {
my $class = shift ;
my $java_class = shift ;
- my $inline = shift ;
if (! Inline::Java::Class::ClassIsArray($java_class)){
croak "Can't create Inline::Java::Array object for non-array class $java_class" ;
@@ -44,7 +43,6 @@ sub new {
array => $this,
class => $class,
java_class => $java_class,
- module => $inline->{modfname},
map => {},
} ;
@@ -61,7 +59,6 @@ sub new {
sub __init_from_array {
my $this = shift ;
my $ref = shift ;
- my $inline = shift ;
my $level = shift ;
$this->__validate_array($ref, 1) ;
@@ -69,7 +66,7 @@ sub __init_from_array {
# Now that we now that this array is valid, we need to carry
# over the stuff in $ref into ourselves.
# sub arrays into array_objects
- $this->__import_from_array($ref, $inline, $level) ;
+ $this->__import_from_array($ref, $level) ;
if (! $level){
Inline::Java::debug_obj($ARRAYS->{$this}) ;
@@ -80,7 +77,6 @@ sub __init_from_array {
sub __import_from_array {
my $this = shift ;
my $ref = shift ;
- my $inline = shift ;
my $level = shift ;
my $extra = $ARRAYS->{$this} ;
@@ -93,8 +89,8 @@ sub __import_from_array {
# We need top drop the array by 1 dimension
$java_class =~ s/^\[// ;
- my $obj = new Inline::Java::Array($java_class, $inline) ;
- $obj->__init_from_array($elem, $inline, $level + 1) ;
+ my $obj = new Inline::Java::Array($java_class) ;
+ $obj->__init_from_array($elem, $level + 1) ;
$elem = $obj ;
}
my $nb = scalar(@{$this}) ;
@@ -107,7 +103,6 @@ sub __init_from_flat {
my $this = shift ;
my $dims = shift ;
my $list = shift ;
- my $inline = shift ;
my $level = shift ;
my $extra = $ARRAYS->{$this} ;
@@ -138,8 +133,8 @@ sub __init_from_flat {
my @dims = @{$dims} ;
shift @dims ;
- my $obj = new Inline::Java::Array($java_class, $inline) ;
- $obj->__init_from_flat(\@dims, \@sub, $inline, $level + 1) ;
+ my $obj = new Inline::Java::Array($java_class) ;
+ $obj->__init_from_flat(\@dims, \@sub, $level + 1) ;
$elem = $obj ;
}
my $nb = scalar(@{$this}) ;
--
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