[java2perl6] r96 committed - For some reason, `javap` is not working...

Revision: 96
Author: cosimo.streppone
Date: Thu Sep 10 14:04:09 2009
Log: For some reason, `javap` is not working
on Windows ($! = "Bad file descriptor").


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

Modified:
  /trunk/t/02_interface.t
  /trunk/t/03_class.t
  /trunk/t/04_java2perl6.t
  /trunk/t/05_final.t

=======================================
--- /trunk/t/02_interface.t	Mon Aug 10 14:46:02 2009
+++ /trunk/t/02_interface.t	Thu Sep 10 14:04:09 2009
@@ -8,20 +8,21 @@
  use Java::Javap::Grammar;
  use Java::Javap::Generator;

-`javap`;
-plan skip_all => 'javap from Java SDK required' if $!;
+system('javap');
+plan skip_all => "javap from Java SDK required: $!" if $!;
  plan tests    => 3;

  #--------------------------------------------------------------------
  # Grammar
  #--------------------------------------------------------------------

-
  my $parser = Java::Javap::Grammar->new();
  my $decomp = `javap -classpath testjavas com.example.NestedIntTest`;
+#diag("decomp=$decomp");

  my $tree   = $parser->comp_unit( $decomp );
  #diag("tree=", Dumper($tree));
+
  my $expected_tree = {
            'compiled_from' => 'NestedIntTest.java',
            'parent' => undef,
=======================================
--- /trunk/t/03_class.t	Mon Aug 10 14:46:02 2009
+++ /trunk/t/03_class.t	Thu Sep 10 14:04:09 2009
@@ -7,8 +7,8 @@
  use Java::Javap::Grammar;
  use Java::Javap::Generator;

-`javap`;
-plan skip_all => 'javap from Java SDK required' if $!;
+system('javap');
+plan skip_all => "javap from Java SDK required: $!" if $!;
  plan tests    => 3;

  #--------------------------------------------------------------------
=======================================
--- /trunk/t/04_java2perl6.t	Mon Jul  6 12:49:20 2009
+++ /trunk/t/04_java2perl6.t	Thu Sep 10 14:04:09 2009
@@ -6,8 +6,8 @@
  use Test::More;
  use File::Spec;

-`javap`;
-plan skip_all => 'javap from Java SDK required' if $!;
+system('javap');
+plan skip_all => "javap from Java SDK required: $!" if $!;
  plan tests    => 5;

  my $perl       = $^X;
=======================================
--- /trunk/t/05_final.t	Sat Jul 21 06:09:45 2007
+++ /trunk/t/05_final.t	Thu Sep 10 14:04:09 2009
@@ -7,8 +7,8 @@
  use Java::Javap::Grammar;
  use Java::Javap::Generator;

-`javap`;
-plan skip_all => 'javap from Java SDK required' if $!;
+system('javap');
+plan skip_all => "javap from Java SDK required: $!" if $!;
  plan tests    => 1;

  #--------------------------------------------------------------------