- nice -n 20 when running

[projects/distfiles.git] / specparser.pl

diff --git a/specparser.pl b/specparser.pl
index e8e515bba42ebdb974e8b83532a4bfa4184c7152..3ecb168380d47f57c921265b52308addc490fba4 100644 (file)
--- a/specparser.pl
+++ b/specparser.pl
@@ -18,7 +18,7 @@ sub next_spec($)
   $spec = shift;
   $base_spec = $spec;
   $base_spec =~ s|.*/||;
-  %macro = ();
+  %macro = ( "nil" => "" );
   $err_cnt = 0;
 }
 
@@ -49,7 +49,7 @@ sub expand($)
   my $v = trim_spaces(shift);
   my $cnt = 20;
 
-  while ($v =~ /\%\{([^\{]+)\}/) {
+  while ($v =~ /\%\{([^\}]+)\}/) {
     my $value;
     if (defined $macro{$1}) {
       $value = $macro{$1};
@@ -57,7 +57,7 @@ sub expand($)
       error("undefined macro $1");
       $value = "UNDEFINED";
     }
-    $v =~ s/\%\{([^\{]+)\}/$value/;
+    $v =~ s/\%\{([^\}]+)\}/$value/;
 
     return $v if (length $v > 1000 or $cnt-- <= 0)
   }