diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2019-03-15 12:11:09 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2019-03-15 12:11:09 +0200 |
commit | 66972a8ed32f71ad5ef46bb54e443aa6d99b2723 (patch) | |
tree | dd41ae77e39b1d7f4b055f757347df12fde0d00d | |
parent | 0208b90b5142ec3ebd83a0b578911f4a13fbb093 (diff) | |
download | acmeman-66972a8ed32f71ad5ef46bb54e443aa6d99b2723.tar.gz acmeman-66972a8ed32f71ad5ef46bb54e443aa6d99b2723.tar.bz2 |
Bugfix
* lib/App/Acmeman/Config.pm (_fixup): Use @path argument when
passing pathnames.
-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 @@ -252,34 +252,34 @@ sub _fixup { } if (exists($d->{section})) { 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 { my $temp; unless (exists $section->{$k}) { $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; } } 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"); } } } } |