diff options
Diffstat (limited to 'lib/App/Acmeman/Config.pm')
-rw-r--r-- | lib/App/Acmeman/Config.pm | 8 |
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"); } } |