[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