summaryrefslogtreecommitdiffabout
Side-by-side diff
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.