[java2perl6] r102 committed - Removed warnings

[codesite-noreply]

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);
 }