allow for has configfile => ( init_arg => 0 )

diff --git a/Changes b/Changes
index f52542d..51e8a39 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@ Revision history for Perl extension MooseX-Getopt
 
 {{$NEXT}}
  - fix broken tests on win32 with file comparisons
+ - allow configfiles called "0"
 
 0.53      2013-02-05 09:59:00 PST-0800
  - properly indicate optional dependency in tests using

diff --git a/lib/MooseX/Getopt/Basic.pm b/lib/MooseX/Getopt/Basic.pm
index 0a3a255..9c7e8f7 100644 (file)
--- a/lib/MooseX/Getopt/Basic.pm
+++ b/lib/MooseX/Getopt/Basic.pm
@@ -36,7 +36,7 @@ sub process_argv {
         if (!defined $configfile)
         {
             my $key = $cfmeta->init_arg;
-            $configfile = $constructor_params->{$key} if $key;
+            $configfile = $constructor_params->{$key} if defined $key;
         }
 
         if(!defined $configfile) {