summaryrefslogtreecommitdiff
path: root/scripts/update-priority.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/update-priority.pl')
-rw-r--r--scripts/update-priority.pl11
1 files changed, 6 insertions, 5 deletions
diff --git a/scripts/update-priority.pl b/scripts/update-priority.pl
index 84b4933..feb1e7f 100644
--- a/scripts/update-priority.pl
+++ b/scripts/update-priority.pl
@@ -38,7 +38,7 @@ my $prefix = $ARGV[1];
open my $pf, '<', $priority_file or die "$priority_file can't be opened";
while (<$pf>) {
chomp;
- next if /^#.*/;
+ next if /^#.*/ or /^$/;
die "Syntax Error \"$_\"" unless /^(\d+)\s+(\S+)(|\s+|\s+#.*)$/;
$priority = $1;
$path = $2;
@@ -55,11 +55,12 @@ while (<$pf>) {
open my $nf, '<', $node_def or die "$node_def can't be opened";
open my $nfn, '>', "$node_def.new" or die "$node_def.new can't be opened";
while (<$nf>) {
- print $nfn $_ if /^(tag|multi):/;
- print $nfn $priority_line;
- print $nfn $_ unless /^priority:\s(\d+)/ or /^(tag|multi):/;
- last if $. == 1;
+ last unless /^#.*/ or /^$/;
+ print $nfn $_;
}
+ print $nfn $_ if /^(tag|multi):/;
+ print $nfn $priority_line if $priority != 0;
+ print $nfn $_ unless /^priority:\s(\d+)/ or /^(tag|multi):/;
while (<$nf>) {
print $nfn $_ unless /^priority:\s(\d+)/;
}