Parcourir la source

configure: use tabs instead of spaces

Matthias Schiffer il y a 10 ans
Parent
commit
b72ffb1bdb
1 fichiers modifiés avec 14 ajouts et 14 suppressions
  1. 14 14
      scripts/configure.pl

+ 14 - 14
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;
 }