diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 00:17:20 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 00:54:38 +0100 |
commit | c9cee6bd30b9f24677896da40c17f28fe81fb495 (patch) | |
tree | 767d2abb3ff138352f51107f104643ca9a65461b /i18n-diff-auditor | |
parent | 67b53825cca42bd6dd3514a8625b77ed2c94ecc2 (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-x | i18n-diff-auditor | 4 |
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; |