Use Text::Locus

3 files changed, 3 insertions, 2 deletions

diff --git a/Makefile.PL b/Makefile.PL
index 8ff01ae..bc0ba75 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -16,6 +16,7 @@ WriteMakefile(NAME      =>      'Config::Parser',
                   'Class::Inspector' => 0,
                   'Data::Dumper' => '2.135_06',
                   'File::Temp'   => '0.22',
+                  'Text::Locus'  => '1.01'
               },
               META_MERGE        => {
                   'meta-spec' => { version => 2 },
diff --git a/lib/Config/Parser.pm b/lib/Config/Parser.pm
index c0a2179..93b23fc 100644
--- a/lib/Config/Parser.pm
+++ b/lib/Config/Parser.pm
@@ -104,7 +104,7 @@ sub loadsynt {
                        && $val =~ /^:(?<kw>.+?)(?:\s*=\s*(?<val>.*))?$/) {
                     $ret->{$+{kw}} = $+{val} // 1;
                 }
-                $ret->{default} = $val if $val;
+                $ret->{default} = $val if defined($val);
                 ($name, $ret);
             }
         })->{section};
diff --git a/lib/Config/Parser/Ini.pm b/lib/Config/Parser/Ini.pm
index b3a1ef9..3b39a16 100644
--- a/lib/Config/Parser/Ini.pm
+++ b/lib/Config/Parser/Ini.pm
@@ -53,7 +53,7 @@ sub _readconfig {
         s/#.*//;
         next if ($_ eq "");
         
-        my $locus = new Config::Tree::Locus($file, $line);
+        my $locus = new Text::Locus($file, $line);
         
         if (/^\[(.+?)\]$/) {
             @path = parse_line('\s+', 0, $1);