From: Karen Etheridge <ether@cpan.org>
Date: Fri, 8 Feb 2013 00:23:59 +0000 (-0800)
Subject: allow for has configfile => ( init_arg => 0 )
X-Git-Tag: v0.54~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fec039b6a25f3fa5c0ab18ef1697f65fc4fb1a59;p=gitmo%2FMooseX-Getopt.git

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

diff --git a/Changes b/Changes
index f52542d..51e8a39 100644
--- 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
--- 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) {