* MooseX::Getopt::Parser::*: default config for getopt is 'default'.
[gitmo/MooseX-Getopt.git] / lib / MooseX / Getopt / Parser / Descriptive.pm
index 44035f1..f90e8e3 100644 (file)
@@ -14,8 +14,7 @@ use Getopt::Long::Descriptive ();
 has config => (
     is => 'rw',
     isa => 'ArrayRef[Str]',
-    auto_deref => 1,
-    default => sub { [] },
+    default => sub { [ 'default' ] },
 );
 
 # Format for usage description
@@ -82,13 +81,12 @@ sub build_options {
         local @ARGV = @{ $getopt->ARGV };
 
         local $SIG{__WARN__} = sub {
-            return warn @_ if $_[0]=~/^\###/;   # Smart::Comments
             $warnings .= $_[0];
         };
 
         eval {
             ($new_options, $usage) = Getopt::Long::Descriptive::describe_options(
-                $self->format, @opts, { getopt_conf => [ $self->config ] }
+                $self->format, @opts, { getopt_conf => $self->config }
             );
         };
         my $e = $@;