[libinline-java-perl] 185/398: Took care of some warnings with 5.005_03

Jonas Smedegaard dr at jones.dk
Thu Feb 26 11:43:02 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 d9768863013c37d02987e33e4645f6fc42b10109
Author: patrick_leb <>
Date:   Wed Mar 13 17:02:02 2002 +0000

    Took care of some warnings with 5.005_03
---
 Java/Array.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Java/Array.pm b/Java/Array.pm
index fe299c9..e6e7375 100644
--- a/Java/Array.pm
+++ b/Java/Array.pm
@@ -434,7 +434,7 @@ sub ValidateArray {
 	my $array = shift ;
 	my $level = shift || 0 ;
 
-	if (! UNIVERSAL::isa($ref, "ARRAY")){
+	if (! ((defined($ref))&&(UNIVERSAL::isa($ref, "ARRAY")))){
 		# We must start with an array of some kind...
 		croak "'$ref' is not an array reference" ;
 	}
@@ -443,7 +443,7 @@ sub ValidateArray {
 
 	my $map = $this->{map} ;
 	foreach my $elem (@{$ref}){
-		if (UNIVERSAL::isa($elem, "ARRAY")){
+		if ((defined($elem))&&(UNIVERSAL::isa($elem, "ARRAY"))){
 			# All the elements at this level are sub-arrays.
 			my $sarray = [] ;
 			$this->ValidateArray($elem, $sarray, $level + 1) ;
@@ -616,7 +616,7 @@ sub MakeElementList {
 
 	my @ret = () ;
 	foreach my $elem (@{$array}){
-		if (UNIVERSAL::isa($elem, "ARRAY")){
+		if ((defined($elem))&&(UNIVERSAL::isa($elem, "ARRAY"))){
 			my $sret = $this->MakeElementList($elem) ;
 			push @ret, @{$sret} ;			
 		}

-- 
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