From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 19 Jun 2007 20:27:11 +0000 (+0100)
Subject: more Debbugs::Status fixes
X-Git-Tag: release/2.6.0~543^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=94ced3e1965059ada53ce93e2c52a777592499a6;p=debbugs.git

more Debbugs::Status fixes
---

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 0a65533b..74946938 100644
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -1116,6 +1116,7 @@ sub update_realtime {
 
 	# update realtime index.db
 
+	return () unless keys %bugs;
 	my $idx_old = IO::File->new($file,'r')
 	     or die "Couldn't open ${file}: $!";
 	my $idx_new = IO::File->new($file.'.new','w')
@@ -1127,7 +1128,6 @@ sub update_realtime {
 	my %changed_bugs;
 	while($line = <$idx_old>) {
 	     @line = split /\s/, $line;
-	     last unless (keys %bugs) > 0;
 	     # Two cases; replacing existing line or adding new line
 	     if (exists $bugs{$line[1]}) {
 		  my $new = $bugs{$line[1]};
@@ -1147,10 +1147,12 @@ sub update_realtime {
 		  while ($line[1] > $min_bug) {
 		       print {$idx_new} $bugs{$min_bug};
 		       delete $bugs{$min_bug};
+		       last unless keys %bugs;
 		       $min_bug = min(keys %bugs);
 		  }
 		  print {$idx_new} $line;
 	     }
+	     last unless keys %bugs;
 	}
 	print {$idx_new} map {$bugs{$_}} sort keys %bugs;