* MooseX::Getopt::Parser::*: default config for getopt is 'default'.

diff --git a/lib/MooseX/Getopt/Parser/Descriptive.pm b/lib/MooseX/Getopt/Parser/Descriptive.pm
index 44035f1..f90e8e3 100644 (file)
--- a/lib/MooseX/Getopt/Parser/Descriptive.pm
+++ b/lib/MooseX/Getopt/Parser/Descriptive.pm
@@ -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 = $@;

diff --git a/lib/MooseX/Getopt/Parser/Long.pm b/lib/MooseX/Getopt/Parser/Long.pm
index 2914824..70e5f34 100644 (file)
--- a/lib/MooseX/Getopt/Parser/Long.pm
+++ b/lib/MooseX/Getopt/Parser/Long.pm
@@ -15,7 +15,7 @@ has config => (
     is => 'rw',
     isa => 'ArrayRef[Str]',
     auto_deref => 1,
-    default => sub { [] },
+    default => sub { [ 'default' ] },
 );
 
 
@@ -53,7 +53,6 @@ sub build_options {
         local @ARGV = @{ $getopt->ARGV };
 
         local $SIG{__WARN__} = sub {
-            return warn @_ if $_[0]=~/^\###/;   # Smart::Comments
             $warnings .= $_[0];
         };