summaryrefslogtreecommitdiffabout
authorSergey Poznyakoff <gray@gnu.org>2019-03-15 10:11:09 (GMT)
committer Sergey Poznyakoff <gray@gnu.org>2019-03-15 10:11:09 (GMT)
commit66972a8ed32f71ad5ef46bb54e443aa6d99b2723 (patch) (side-by-side diff)
treedd41ae77e39b1d7f4b055f757347df12fde0d00d
parent0208b90b5142ec3ebd83a0b578911f4a13fbb093 (diff)
downloadacmeman-66972a8ed32f71ad5ef46bb54e443aa6d99b2723.tar.gz
acmeman-66972a8ed32f71ad5ef46bb54e443aa6d99b2723.tar.bz2
Bugfix
* lib/App/Acmeman/Config.pm (_fixup): Use @path argument when passing pathnames.
Diffstat (more/less context) (ignore whitespace changes)
-rw-r--r--lib/App/Acmeman/Config.pm8
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");
}
}

Return to:

Send suggestions and report system problems to the System administrator.