X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fgen-indices;h=1f0e7dfc9b75bf6c999df837a3c0615440cb5af5;hb=b10a87938eb116b8871081643058052564e39603;hp=ff269963541658a69e665a0c755b1bc59f2bbd4e;hpb=2daad1da7ca48238e3ae97f0d62a21062b797a18;p=debbugs.git

diff --git a/scripts/gen-indices b/scripts/gen-indices
index ff26996..1f0e7df 100755
--- a/scripts/gen-indices
+++ b/scripts/gen-indices
@@ -18,7 +18,9 @@ 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);
 
 =head1 NAME
 
@@ -39,7 +41,7 @@ gen-indices - Generates index files for the cgi scripts
 
 =over
 
-=itme B<--quick>
+=item B<--quick>
 
 Only update changed bugs
 
@@ -81,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: $!";
 
@@ -196,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}));