create_index_pages: Avoid needless slices due to unused translations

[deb/packages.git] / bin / create_index_pages

diff --git a/bin/create_index_pages b/bin/create_index_pages
index 0766f78fe5a275ebc192f0fcfe2089520fe6dab0..8b1f6577550dc0b732123b648715d852c3e0dd94 100755 (executable)
--- a/bin/create_index_pages
+++ b/bin/create_index_pages
@@ -230,11 +230,13 @@ foreach my $pkg (@PACKAGES) {
                my %sdescs;
                my %trans_desc = split /\000|\001/, $trans_desc;
                while (my ($l, $d) = each %trans_desc) {
-                   $d =~ s/\n.*//os;
+                   # filter out non-po languages
+                   next unless exists $lang_vars{$l};
 
+                   $d =~ s/\n.*//os;
                    $sdescs{$l} = $d;
                }
-               $p{trans_desc} = \%sdescs;
+               $p{trans_desc} = \%sdescs if %sdescs;
            }
            $p{priority} = $entry->get_newest( 'priority' );
        }