}
}
-open TESTING, ">", "britney/testing"
- or die "britney/testing: $!";
+open TESTING, ">", "britney/testing.new"
+ or die "britney/testing.new: $!";
for my $pkg (sort keys %testingbugs) {
print TESTING "$pkg $testingbugs{$pkg}\n";
}
close TESTING;
-open UNSTABLE, ">", "britney/unstable"
- or die "britney/unstable: $!";
+open UNSTABLE, ">", "britney/unstable.new"
+ or die "britney/unstable.new: $!";
for my $pkg (sort keys %unstablebugs) {
print UNSTABLE "$pkg $unstablebugs{$pkg}\n";
}
close UNSTABLE;
+rename "britney/testing.new", "britney/testing"
+ or die "renaming britney/testing.new to britney/testing: $!";
+rename "britney/unstable.new", "britney/unstable"
+ or die "renaming britney/unstable.new to britney/unstable: $!";
+
exit 0;