X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=make-britney-counts;h=e541426384d7f6a6c67849ecdf788b3a5ed839ee;hp=955dc9370443c8770f6daa9e7bf8fbeb53fd3fb0;hb=fdf5d1a25196bbb8d9efe019f00aa63df6170328;hpb=5ccf6f4092f0f41cccbbfb854e67e4212bab55e7

diff --git a/make-britney-counts b/make-britney-counts
index 955dc93..e541426 100755
--- a/make-britney-counts
+++ b/make-britney-counts
@@ -67,8 +67,10 @@ for my $pkg (sort keys %testingbugs) {
 	print TESTING   "$pkg ", scalar @{$testingbugs{$pkg}}, "\n";
 	print TESTINGNR "$pkg ", join(',', @{$testingbugs{$pkg}}), "\n";
 }
-close TESTING;
-close TESTINGNR;
+close TESTING
+	or die "close britney/testing.new: $!";
+close TESTINGNR
+	or die "close britney/testing-nr.new: $!";
 
 open UNSTABLE, ">", "britney/unstable.new"
 	or die "britney/unstable.new: $!";
@@ -78,8 +80,10 @@ for my $pkg (sort keys %unstablebugs) {
 	print UNSTABLE   "$pkg ", scalar @{$unstablebugs{$pkg}}, "\n";
 	print UNSTABLENR "$pkg ", join(',', @{$unstablebugs{$pkg}}), "\n";
 }
-close UNSTABLE;
-close UNSTABLENR;
+close UNSTABLE
+	or die "close britney/unstable.new: $!";
+close UNSTABLENR
+	or die "close britney/unstable-nr.new: $!";
 
 rename "britney/testing.new", "britney/testing"
 	or die "renaming britney/testing.new to britney/testing: $!";