chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
67b5382
)
i18n: i18n-diff-auditor: fix striang (de)concatenation
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 30 Sep 2018 23:17:20 +0000
(
00:17
+0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 30 Sep 2018 23:54:38 +0000
(
00:54
+0100)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
i18n-diff-auditor
patch
|
blob
|
history
diff --git
a/i18n-diff-auditor
b/i18n-diff-auditor
index 853dccea8b4ab009d7584a9f33e5b573a4430d44..e8914c004e0d20e0de81675d913430d2ac0d924f 100755
(executable)
--- 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;