suggestions from preed b=371325 comment #20 r=preed

This commit is contained in:
rhelmer@mozilla.com 2007-04-20 11:55:24 -07:00
Родитель 58e8597155
Коммит 171a8a3baf
1 изменённых файлов: 4 добавлений и 4 удалений

Просмотреть файл

@ -205,16 +205,16 @@ sub Bump {
$skipNextLine = 1;
my $interpLine = $line;
$interpLine =~ s/^#\s+CONFIG:\s+//;
foreach my $variable (grep(/%\w+\-*%/, split(/\s+/, $line))) {
foreach my $variable (grep(/%[\w\-]+%/, split(/\s+/, $line))) {
my $key = $variable;
if (! ($key =~ s/.*%(\w+\-*)%.*/$1/g)) {
if (! ($key =~ s/.*%([\w\-]+)%.*/$1/)) {
die("ASSERT: could not parse $variable");
}
if (! $config->Exists(var => $key)) {
if (! $config->Exists(sysvar => $key)) {
die("ASSERT: no replacement found for $key");
}
my $value = $config->Get(var => $key);
my $value = $config->Get(sysvar => $key);
$interpLine =~ s/\%$key\%/$value/g;
}
print OUTFILE $interpLine;