X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FGetopt.pm;h=8eda924496039246cc07615b6d78639b0f2b537a;hb=8a29a50d34d57607b72e29b62904f824a7f9dc51;hp=8d0acd3ce88c2368ef709f0cdf7015a390f17f1d;hpb=7c1cb743e00a8c9335d5ccb15fc6f3ea520825c8;p=gitmo%2FMooseX-Getopt.git

diff --git a/lib/MooseX/Getopt.pm b/lib/MooseX/Getopt.pm
index 8d0acd3..8eda924 100644
--- a/lib/MooseX/Getopt.pm
+++ b/lib/MooseX/Getopt.pm
@@ -52,6 +52,9 @@ sub get_options_from_argv {
                        options => $options,
                    );
 
+    # Call Getopt parser only once.
+    $getopt->build_options if not $getopt->has_status;
+
     my $new_options = {
         %{ $options },                          # explicit options to ->new
         %{ $getopt->options },                  # options from CLI