the realtime file needs to be in UTF-8

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 7d72c032ec9b68c8678bca33acd2eacfd7707748..c66ab416805c37bdf9f5e3ed28ce4e292e28ba5a 100644 (file)
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -1615,6 +1615,7 @@ sub update_realtime {
        my $idx_new = IO::File->new($file.'.new','w')
             or die "Couldn't open ${file}.new: $!";
 
+        binmode($idx_new,':raw:encoding(UTF-8)');
        my $min_bug = min(keys %bugs);
        my $line;
        my @line;