|
|
@ -18,11 +18,11 @@ sub load_config($) { |
|
|
|
open FILE, "$file" or die "can't open file"; |
|
|
|
open FILE, "$file" or die "can't open file"; |
|
|
|
while (<FILE>) { |
|
|
|
while (<FILE>) { |
|
|
|
chomp; |
|
|
|
chomp; |
|
|
|
/^CONFIG_(.+)=(.+)/ and do { |
|
|
|
/^CONFIG_(.+?)=(.+)/ and do { |
|
|
|
$config{$1} = $2; |
|
|
|
$config{$1} = $2; |
|
|
|
next; |
|
|
|
next; |
|
|
|
}; |
|
|
|
}; |
|
|
|
/^# CONFIG_(.+) is not set/ and do { |
|
|
|
/^# CONFIG_(.+?) is not set/ and do { |
|
|
|
$config{$1} = -1; |
|
|
|
$config{$1} = -1; |
|
|
|
next; |
|
|
|
next; |
|
|
|
}; |
|
|
|
}; |
|
|
|