Bugfix

* lib/App/Acmeman/Config.pm (_fixup): Use @path argument when
passing pathnames.

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/App/Acmeman/Config.pm b/lib/App/Acmeman/Config.pm
index 614a46a..f566cb7 100644
--- a/lib/App/Acmeman/Config.pm
+++ b/lib/App/Acmeman/Config.pm
@@ -255,7 +255,7 @@ sub _fixup {
                 if ($k eq '*') {
                     while (my ($name, $vref) = each %{$section}) {
                         if (_is_section_ref($vref)) {
-                            $self->_fixup($d->{section}, $vref, @_, $name);
+                            $self->_fixup($d->{section}, $vref, @path, $name);
                         }
                     }
                 } else {
@@ -264,7 +264,7 @@ sub _fixup {
                         $section->{$k} = {} ;
                         $temp = 1;
                     }
-                    $self->_fixup($d->{section}, $section->{$k}, @_, $k);
+                    $self->_fixup($d->{section}, $section->{$k}, @path, $k);
                     delete $section->{$k}
                         if $temp && keys(%{$section->{$k}}) == 0;
                 }
@@ -273,10 +273,10 @@ sub _fixup {
             if ($d->{mandatory} && !exists($section->{$k})) {
                 $self->error(exists($d->{section})
                              ? "mandatory section ["
-                                . join(' ', @_, $k)
+                                . join(' ', @path, $k)
                                 . "] not present"
                              : "mandatory variable \""
-                                . join('.', @_, $k)
+                                . join('.', @path, $k)
                                 . "\" not set");
             }       
         }