[java2perl6] r80 committed - Abort java2perl6 on option error....

Revision: 80
Author: tim.bunce
Date: Mon Aug 10 10:14:31 2009
Log: Abort java2perl6 on option error.
Make boolean options negatable.

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

Modified:
  /trunk/bin/java2perl6

=======================================
--- /trunk/bin/java2perl6	Tue Aug  4 17:01:56 2009
+++ /trunk/bin/java2perl6	Mon Aug 10 10:14:31 2009
@@ -28,14 +28,14 @@
      'jpcmd|j=s'   => \$jpcmd,
      'genwith|g=s' => \$genwith,
      'genopts|p=s' => \$genoptstr,
-    'nest|n'      => \$nest,
+    'nest|n!'     => \$nest,
      'outdir|d=s'  => \$outdir,
-    'recurse|r'   => \$recurse,
-    'quiet|q'     => \$quiet,
-    'verbose|v'   => \$verbose,
-    'help|h'      => \&help,
+    'recurse|r!'  => \$recurse,
+    'quiet|q!'    => \$quiet,
+    'verbose|v!'  => \$verbose,
+    'help|h!'     => \&help,
      'check|c!'    => \my $opt_check,
-);
+) or exit 1;

  my @genopts = split /\s+/, $genoptstr;