From 850223eafc9c6fb395f4730abe0650069e287af2 Mon Sep 17 00:00:00 2001
From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Sat, 24 Jul 2010 09:15:58 -0700
Subject: [PATCH] Don't recurse into any private classes. Avoid undef on
 unprocessed classes.

---
 bin/java2perl6api | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/bin/java2perl6api b/bin/java2perl6api
index a8ef186..32cd4fe 100644
--- a/bin/java2perl6api
+++ b/bin/java2perl6api
@@ -105,7 +105,7 @@ for my $class (sort keys %java_class_info) {
 
 for my $info (
     # compile deepest first as a slight optimization
-    sort { $b->{depth} <=> $a->{depth} } values %java_class_info
+    sort { ($b->{depth}||0) <=> ($a->{depth}||0) } values %java_class_info
 ) {
     next unless $opt_compile;
     my $class = $info->{java_class_name};
@@ -173,6 +173,11 @@ sub load_java_class_info {
 
     if ($recurse) {
         for my $ref_class (sort @$referenced_classes) {
+            if ($ref_class =~ m/\$/) {
+                warn "$ref_class: skipped private class\n"
+                    if $opt_trace >= 2;
+                next;
+            }
             load_java_class_info( $ref_class, $recurse+1 );
         }
     }