- print "Reading Translations for $lang...";
- open PKG, "zcat $TOPDIR/archive/*/*/*/i18n/Translation-$lang.gz|";
+ (my $locale = $lang) =~ s/^([a-z]{2})-([a-z]{2})$/"$1_".uc($2)/e;
+ print "Reading Translations for $lang ($locale)...";
+ open PKG, "bzcat $TOPDIR/archive/*/*/*/i18n/Translation-$locale.bz2|";