summaryrefslogtreecommitdiff
path: root/lib/Config/AST/Follow.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Config/AST/Follow.pm')
-rw-r--r--lib/Config/AST/Follow.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Config/AST/Follow.pm b/lib/Config/AST/Follow.pm
index 4d996a5..cf05e34 100644
--- a/lib/Config/AST/Follow.pm
+++ b/lib/Config/AST/Follow.pm
@@ -53,7 +53,7 @@ within a particular section.
=head1 SEE ALSO
-B<Config::AST>(3).
+L<Config::AST>(3).
=cut
@@ -81,6 +81,8 @@ sub AUTOLOAD {
unless ref($self->{_lex}) eq 'HASH';
(my $key = $m) =~ s/__/-/g;
+ $key = $self->{_node}->root->mangle_key($key)
+ if $self->{_node}->is_section;
my $lex = $self->{_lex};
if (ref($lex) eq 'HASH') {
if (exists($lex->{$key})) {
@@ -109,7 +111,7 @@ sub AUTOLOAD {
}
if (!$self->{_node}->is_null) {
- my $next = $self->{_node}->subtree($self->{_ci} ? lc($key) : $key)
+ my $next = $self->{_node}->subtree($key)
// new Config::AST::Node::Null;
return $next if $next->is_leaf || !$lex;
$self->{_node} = $next;

Return to:

Send suggestions and report system problems to the System administrator.