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.

1 files changed, 4 insertions, 2 deletions

diff --git a/bin/create_index_pages b/bin/create_index_pages
index 0766f78..8b1f657 100755
--- 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' );
 	}