Fix pointed out by Gaal Yahas in irc

diff --git a/ChangeLog b/ChangeLog
index 058caf7..c717ea3 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 Revision history for Perl extension MooseX-Getopt
 
+  * Fix argument parseing in process_argv when used with ConfigFromFile so that
+    -v can be used as expected, rather than being grabbed as --version
+
 0.38 Fri 23 Dec 2011
   * More documentation on Getopt::Long settings and how they alter this role's
     behaviour, in particular with regards to extra_argv capturing.

diff --git a/lib/MooseX/Getopt/Basic.pm b/lib/MooseX/Getopt/Basic.pm
index 9bb62ba..87b54db 100644 (file)
--- a/lib/MooseX/Getopt/Basic.pm
+++ b/lib/MooseX/Getopt/Basic.pm
@@ -24,7 +24,7 @@ sub process_argv {
         # just get the configfile arg now; the rest of the args will be
         # fetched later
         my $configfile;
-        my $opt_parser = Getopt::Long::Parser->new( config => [ qw( no_auto_help pass_through ) ] );
+        my $opt_parser = Getopt::Long::Parser->new( config => [ qw( no_auto_help pass_through no_auto_version ) ] );
         $opt_parser->getoptions( "configfile=s" => \$configfile );
 
         if(!defined $configfile) {