diff options
Diffstat (limited to 'lib/Config/AST/Follow.pm')
-rw-r--r-- | lib/Config/AST/Follow.pm | 6 |
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; |