suggestions from preed b=371325 comment #20 r=preed
authorrhelmer@mozilla.com
Fri, 20 Apr 2007 11:55:24 -0700
changeset 678 1691d10c93f5559130a5c0aa312148de4d38e09e
parent 677 00c8a925b0b8c54fec2e662bb2825df51a3db455
child 679 bd13f8feef65b8f025980d445c97c76ed0f24564
push idunknown
push userunknown
push dateunknown
reviewerspreed
bugs371325
milestone1.9a4pre
suggestions from preed b=371325 comment #20 r=preed
tools/release/Bootstrap/Config.pm
--- a/tools/release/Bootstrap/Config.pm
+++ b/tools/release/Bootstrap/Config.pm
@@ -200,26 +200,26 @@ sub Bump {
         if ($skipNextLine) {
             $skipNextLine = 0;
             next;
         } elsif ($line =~ /^# CONFIG:\s+/) {
             print OUTFILE $line;
             $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;
         } else {
             print OUTFILE $line;
         }
     }