[java2perl6] r102 committed - Removed warnings

Revision: 102
Author: cosimo.streppone
Date: Wed Oct 21 09:59:53 2009
Log: Removed warnings
http://code.google.com/p/java2perl6/source/detail?r=102

Modified:
  /trunk/lib/Java/Javap/Generator/Std.pm

=======================================
--- /trunk/lib/Java/Javap/Generator/Std.pm	Tue Aug 11 03:11:17 2009
+++ /trunk/lib/Java/Javap/Generator/Std.pm	Wed Oct 21 09:59:53 2009
@@ -178,7 +178,9 @@
      my $self = shift;
      my $ast  = shift;
      my $type_caster = shift;
-
+
+    my $trace_level = defined $self->{trace_level} ?  
$self->{trace_level} : 0;
+
      my %perl_types;
      if (defined $ast->{parent}) {
          my $target = $type_caster->cast($ast->{parent});
@@ -198,7 +200,7 @@
          }
      }
      warn "$ast->{perl_qualified_name} references types: @{[  
keys %perl_types ]}\n"
-        if $self->{trace_level} >= 3;
+        if $trace_level >= 3;

      for my $perl_type (keys %perl_types) {

@@ -216,7 +218,7 @@
              ;
      }
      warn "$ast->{perl_qualified_name} needs to load: @{[ keys %perl_types  
]}\n"
-        if $self->{trace_level} >= 3;
+        if $trace_level >= 3;

      return (sort keys %perl_types);
  }