# -*- perl -*-
-# $Id: errorlib.in,v 1.23 2003/05/24 22:43:55 cjwatson Exp $
+# $Id: errorlib.in,v 1.24 2003/05/25 17:19:05 cjwatson Exp $
sub F_SETLK { 6; } sub F_WRLCK{ 1; }
$flockstruct= 'sslll'; # And there ought to be something for this too.
open(IDXNEW, ">$file.new");
my $line;
+ my @line;
while($line = <IDXDB>) {
- my @line = split /\s/, $line;
- last if ($line[1] == $bug);
+ @line = split /\s/, $line;
+ last if ($line[1] >= $bug);
print IDXNEW $line;
+ $line = "";
}
if ($new eq "NOCHANGE") {
- print IDXNEW $line;
+ print IDXNEW $line if ($line ne "" && $line[1] == $ref);
} elsif ($new eq "REMOVE") {
0;
} else {
print IDXNEW $new;
}
+ if ($line ne "" && $line[1] > $bug) {
+ print IDXNEW $line;
+ $line = "";
+ }
print IDXNEW while(<IDXDB>);