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

[codesite-noreply]

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;