summaryrefslogtreecommitdiff
path: root/i18n-diff-auditor
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2018-10-01 00:17:20 +0100
committerIan Jackson <ijackson@chiark.greenend.org.uk>2018-10-01 00:54:38 +0100
commitc9cee6bd30b9f24677896da40c17f28fe81fb495 (patch)
tree767d2abb3ff138352f51107f104643ca9a65461b /i18n-diff-auditor
parent67b53825cca42bd6dd3514a8625b77ed2c94ecc2 (diff)
i18n: i18n-diff-auditor: fix striang (de)concatenation
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'i18n-diff-auditor')
-rwxr-xr-xi18n-diff-auditor4
1 files changed, 3 insertions, 1 deletions
diff --git a/i18n-diff-auditor b/i18n-diff-auditor
index 853dcce..e8914c0 100755
--- a/i18n-diff-auditor
+++ b/i18n-diff-auditor
@@ -160,9 +160,10 @@ sub semiparse ($) {
die "cannot tokenise \`$&'";
}
}
- for (my $i=@o-2; $i>0; --$i) {
+ for (my $i=0; $i+2 < @o; $i++) {
next unless $o[$i+1]{E} eq '.';
my @inputs = @o[$i, $i+2];
+ #print STDERR Dumper(\@inputs);
next if grep { !is_string($_) } @inputs;
my $q = $inputs[0]{Q};
next if grep { $_->{Q} ne $q } @inputs;
@@ -173,6 +174,7 @@ sub semiparse ($) {
Q => $q,
};
@o = (@o[0..$i-1], $new, @o[$i+3..$#o]);
+ $i--; # counteracts $i++
}
debug $ichunkstart, "semiparsed: ".join ' ', map { $_->{P} } @o;
return @o;