summaryrefslogtreecommitdiffstats
path: root/translations
diff options
context:
space:
mode:
authorOswald Buddenhagen <oswald.buddenhagen@nokia.com>2010-07-15 16:44:18 (GMT)
committerOswald Buddenhagen <oswald.buddenhagen@nokia.com>2010-07-15 20:00:28 (GMT)
commit40d2b2e30a526b46b17072ba8bdc38f30cd3c624 (patch)
tree010a189ba49b7627a7c1aa4f01dd7d3a2a71cafb /translations
parent4fc1008163907459d921c4089512268495245976 (diff)
downloadQt-40d2b2e30a526b46b17072ba8bdc38f30cd3c624.zip
Qt-40d2b2e30a526b46b17072ba8bdc38f30cd3c624.tar.gz
Qt-40d2b2e30a526b46b17072ba8bdc38f30cd3c624.tar.bz2
remove nasty hack by using a stricter regexp (for language codes)
Diffstat (limited to 'translations')
-rwxr-xr-xtranslations/check-ts.pl9
1 files changed, 2 insertions, 7 deletions
diff --git a/translations/check-ts.pl b/translations/check-ts.pl
index 500be15..067cad8 100755
--- a/translations/check-ts.pl
+++ b/translations/check-ts.pl
@@ -43,8 +43,7 @@
use strict;
-# "qt" must come last to avoid prefix matching.
-my @groups = ("assistant", "designer", "linguist", "qt_help", "qtconfig", "qvfb", "qt");
+my @groups = ("qt", "assistant", "designer", "linguist", "qt_help", "qtconfig", "qvfb");
my %scores = ();
my %langs = ();
@@ -55,7 +54,7 @@ for my $i (split(/ /, $res)) {
$i =~ /^([^.]+)\.ts:(.*)$/;
my ($fn, $pc) = ($1, $2);
for my $g (@groups) {
- if ($fn =~ /^${g}_(.*)$/) {
+ if ($fn =~ /^${g}_((.._)?..)$/) {
my $lang = $1;
$scores{$g}{$lang} = $pc;
$langs{$lang} = 1;
@@ -64,10 +63,6 @@ for my $i (split(/ /, $res)) {
}
}
-# now we move "qt" to the front, as it should be the first column.
-pop @groups;
-unshift @groups, "qt";
-
my $code = "";
print "L10n ";