Fix default user for usertags

[debbugs.git] / scripts / gen-indices

diff --git a/scripts/gen-indices b/scripts/gen-indices
index 0fe8ea82fcb577304cebacc374e385832e8ba6a3..1f0e7dfc9b75bf6c999df837a3c0615440cb5af5 100755 (executable)
--- a/scripts/gen-indices
+++ b/scripts/gen-indices
@@ -18,7 +18,7 @@ use Getopt::Long;
 use Pod::Usage;
 
 use File::stat;
-use List::Util qw(min);
+use List::AllUtils qw(min);
 
 use Debbugs::Common qw(make_list);
 
@@ -83,6 +83,7 @@ use Debbugs::Config qw(:config);
 use Debbugs::Common qw(getparsedaddrs getbugcomponent lockpid);
 use Debbugs::Status qw(readbug split_status_fields);
 use Debbugs::Log;
+use Debbugs::UTF8 qw(encode_utf8_structure);
 
 chdir($config{spool_dir}) or die "chdir $config{spool_dir} failed: $!";
 
@@ -198,7 +199,7 @@ while (my $dir = shift @dirs) {
                     next;
                }
                next if $stat->mtime < $time;
-               my $fdata = split_status_fields(readbug($bug, $initialdir));
+               my ($fdata) = encode_utf8_structure(split_status_fields(readbug($bug, $initialdir)));
                $modification_made = 1;
                addbugtoindex("package", $bug, make_list($fdata->{package}));
                addbugtoindex("tag", $bug, make_list($fdata->{keywords}));