diff options
author | Oswald Buddenhagen <oswald.buddenhagen@nokia.com> | 2010-07-15 16:44:18 (GMT) |
---|---|---|
committer | Oswald Buddenhagen <oswald.buddenhagen@nokia.com> | 2010-07-15 20:00:28 (GMT) |
commit | 40d2b2e30a526b46b17072ba8bdc38f30cd3c624 (patch) | |
tree | 010a189ba49b7627a7c1aa4f01dd7d3a2a71cafb /translations/check-ts.pl | |
parent | 4fc1008163907459d921c4089512268495245976 (diff) | |
download | Qt-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/check-ts.pl')
-rwxr-xr-x | translations/check-ts.pl | 9 |
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 "; |