X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fgen-indices;h=1f0e7dfc9b75bf6c999df837a3c0615440cb5af5;hb=b10a87938eb116b8871081643058052564e39603;hp=d2cd9044b68af1bb8999f7f48128e16d3f9eb8c6;hpb=9e49b15db0321abf0e6d7c7782779e3f35e71b53;p=debbugs.git diff --git a/scripts/gen-indices b/scripts/gen-indices index d2cd904..1f0e7df 100755 --- 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); @@ -41,7 +41,7 @@ gen-indices - Generates index files for the cgi scripts =over -=itme B<--quick> +=item B<--quick> Only update changed bugs @@ -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}));