diff --git a/scripts/configure.pl b/scripts/configure.pl index 20021b85..50c5237c 100755 --- a/scripts/configure.pl +++ b/scripts/configure.pl @@ -7,24 +7,24 @@ use strict; my %config; sub add_config { - my ($prefix, $c) = @_; + my ($prefix, $c) = @_; - foreach my $key (keys $c) { - my $val = $c->{$key}; + foreach my $key (keys $c) { + my $val = $c->{$key}; - if (ref($val) eq 'HASH') { - add_config($key . '.', $val); + if (ref($val) eq 'HASH') { + add_config($key . '.', $val); + } + unless (ref($val)) { + $config{'@' . $prefix . $key . '@'} = $val; + } } - unless (ref($val)) { - $config{'@' . $prefix . $key . '@'} = $val; - } - } } sub read_config { - my $input = shift; - my $CONFIG = do $input; - add_config('', $CONFIG); + my $input = shift; + my $CONFIG = do $input; + add_config('', $CONFIG); } @@ -35,6 +35,6 @@ my $regex = join '|', map {quotemeta} keys %config; for (<>) { - s/($regex)/${config{$1}}/g; - print; + s/($regex)/${config{$1}}/g; + print; }