[java2perl6] r98 committed - Tests pass successfully now....

Revision: 98
Author: cosimo.streppone
Date: Sun Sep 27 12:37:52 2009
Log: Tests pass successfully now.
I think this is a bad hack, and probably doesn't make sense,
as this file is probably autogenerated (?)

http://code.google.com/p/java2perl6/source/detail?r=98

Modified:
  /trunk/lib/Java/Javap/Grammar.pm

=======================================
--- /trunk/lib/Java/Javap/Grammar.pm	Tue Aug 11 02:50:42 2009
+++ /trunk/lib/Java/Javap/Grammar.pm	Sun Sep 27 12:37:52 2009
@@ -6,6 +6,7 @@

  package Parse::RecDescent::Java::Javap::Grammar;
  use strict;
+use Carp ();
  use vars qw($skip $AUTOLOAD  );
  $skip = '\s*';

@@ -3132,9 +3133,16 @@
  					  q{comp_unit},
  					  $tracelevel)
  						if defined $::RD_TRACE;
-		$item{q{comp_stmt(?)}} = $_tok;
+
+		# Not sure why this was failing, but it appears to be matching only  
arrays
+		#$item{q{comp_stmt(?)}} = $_tok;
+
+		# Assert comp_stmt result is array
+		if (ref $_tok ne 'ARRAY') {
+			Carp::croak "comp_stmt should match an array?";
+		}
+		$item{q{comp_stmt}} = $_tok->[0];
  		push @item, $_tok;
-


  		Parse::RecDescent::_trace(q{Trying subrule: [comp_unit_decl]},