diff options
| author | Oswald Buddenhagen <oswald.buddenhagen@nokia.com> | 2010-07-15 16:42:28 (GMT) |
|---|---|---|
| committer | Oswald Buddenhagen <oswald.buddenhagen@nokia.com> | 2010-07-15 20:00:28 (GMT) |
| commit | 4fc1008163907459d921c4089512268495245976 (patch) | |
| tree | 7eff5a0fff3498954b229ee68a21edafba3803df /translations/check-ts.pl | |
| parent | 63f1fc5e7aac3b9b088b90577a2c5208be571183 (diff) | |
| download | Qt-4fc1008163907459d921c4089512268495245976.zip Qt-4fc1008163907459d921c4089512268495245976.tar.gz Qt-4fc1008163907459d921c4089512268495245976.tar.bz2 | |
cosmetics: quote the dot in the regexp
Diffstat (limited to 'translations/check-ts.pl')
| -rwxr-xr-x | translations/check-ts.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translations/check-ts.pl b/translations/check-ts.pl index 0ff9d17..500be15 100755 --- a/translations/check-ts.pl +++ b/translations/check-ts.pl @@ -52,7 +52,7 @@ my %langs = (); my $files = join("\n", <*_??.ts>); my $res = `xmlpatterns -param files=\"$files\" check-ts.xq`; for my $i (split(/ /, $res)) { - $i =~ /^([^.]+).ts:(.*)$/; + $i =~ /^([^.]+)\.ts:(.*)$/; my ($fn, $pc) = ($1, $2); for my $g (@groups) { if ($fn =~ /^${g}_(.*)$/) { |