projects
/
gitmo/MooseX-Getopt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
* MooseX::Getopt::Session: New attribute "status".
[gitmo/MooseX-Getopt.git]
/
lib
/
MooseX
/
Getopt
/
Parser
/
Descriptive.pm
diff --git
a/lib/MooseX/Getopt/Parser/Descriptive.pm
b/lib/MooseX/Getopt/Parser/Descriptive.pm
index
1b69fb5
..
57ecaea
100644
(file)
--- a/
lib/MooseX/Getopt/Parser/Descriptive.pm
+++ b/
lib/MooseX/Getopt/Parser/Descriptive.pm
@@
-95,6
+95,7
@@
sub build_options {
# Include old options and usage object
$new_options = { usage => $usage, %$options, %$new_options };
+ $getopt->status( !! $warnings );
$getopt->options( $new_options );
die $warnings if $warnings;