nils/gluon
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

configure: use tabs instead of spaces

Browse Source
This commit is contained in:
Matthias Schiffer 2013-09-30 17:14:40 +02:00
parent 31da712536
commit b72ffb1bdb
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
scripts/configure.pl
View File

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