create_index_pages: Avoid needless slices due to unused translations

Ignore DDTP translations of languages that have no po translation.
We will not use them here and we might create needless slices
otherwise.

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' );
        }