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

diff --git a/lib/MooseX/Getopt/Parser/Long.pm b/lib/MooseX/Getopt/Parser/Long.pm
index e697e1f..3a1eb2d 100644
--- a/lib/MooseX/Getopt/Parser/Long.pm
+++ b/lib/MooseX/Getopt/Parser/Long.pm
@@ -66,6 +66,7 @@ sub build_options {
     # Filter not defined values in new_options hashref
     $new_options = { map { $_ => $new_options->{$_} } grep { defined $new_options->{$_} } keys %$new_options };
 
+    $getopt->status( !! $warnings );
     $getopt->options( $new_options );
 
     die $warnings if $warnings;