Commit 649c52be authored by Oswald Buddenhagen's avatar Oswald Buddenhagen
Browse files

include region-qualified languages into the list

parent abe9797d
......@@ -48,7 +48,7 @@ my %scores = ();
my $files = join("\n", <*_??.ts>);
my $res = `xmlpatterns -param files=\"$files\" check-ts.xq`;
for my $i (split(/ /, $res)) {
$i =~ /^(?:[^\/]+\/)*qtcreator_(..)\.ts:(.*)$/;
$i =~ /^(?:[^\/]+\/)*qtcreator_([^.]+)\.ts:(.*)$/;
my ($lang, $pc) = ($1, $2);
$scores{$lang} = $pc;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment