X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FGetopt%2FParser%2FDescriptive.pm;fp=lib%2FMooseX%2FGetopt%2FParser%2FDescriptive.pm;h=ff05c8ff4650734b6090b5a06f8cbc6dff224632;hb=41dd8ab334a211da41754a36bd2896ef54fd7554;hp=57ecaea1cfc2baee9b6c1e67f2f71158e4963160;hpb=8a29a50d34d57607b72e29b62904f824a7f9dc51;p=gitmo%2FMooseX-Getopt.git

diff --git a/lib/MooseX/Getopt/Parser/Descriptive.pm b/lib/MooseX/Getopt/Parser/Descriptive.pm
index 57ecaea..ff05c8f 100644
--- a/lib/MooseX/Getopt/Parser/Descriptive.pm
+++ b/lib/MooseX/Getopt/Parser/Descriptive.pm
@@ -95,7 +95,7 @@ sub build_options {
     # Include old options and usage object
     $new_options = { usage => $usage, %$options, %$new_options };
 
-    $getopt->status( !! $warnings );
+    $getopt->status( ! $warnings );
     $getopt->options( $new_options );
 
     die $warnings if $warnings;