the old index has to be open in encoding mode too

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index c66ab416805c37bdf9f5e3ed28ce4e292e28ba5a..9c9551b3ca262b419743021f58291ad49d408707 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_old,':raw:utf8');
         binmode($idx_new,':raw:encoding(UTF-8)');
        my $min_bug = min(keys %bugs);
        my $line;