[libinline-java-perl] 179/398: Fixed info. Not sure if it works though...

[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 4a7a31dfe4ec6750412f9c6e60d261f6430aafd3
Author: patrick_leb <>
Date:   Sun Feb 10 21:10:00 2002 +0000

    Fixed info. Not sure if it works though...
---
 Java.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/Java.pm b/Java.pm
index 5f0af29..aed7abb 100644
--- a/Java.pm
+++ b/Java.pm
@@ -1071,10 +1071,12 @@ sub info {
 
 			$info .= "    public member variables:\n" ;
 			while (my ($k, $v) = each %{$d->{classes}->{$class}->{fields}}){
-				my $static = ($v->{STATIC} ? "static " : "") ;
-				my $type = $v->{TYPE} ;
+				while (my ($k2, $v2) = each %{$d->{classes}->{$class}->{fields}->{$k}}){
+					my $static = ($v2->{STATIC} ? "static " : "") ;
+					my $type = $v2->{TYPE} ;
 
-				$info .= "      $static$type $k\n" ;
+					$info .= "      $static$type $k\n" ;
+				}
 			}
 		}
 	}

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