diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 01:06:44 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 01:07:10 +0100 |
commit | 082759594b008c128c7f66791d9b0845bcb0da33 (patch) | |
tree | b874b36881e0a072db8ac7bb4c61f49e70e065f5 | |
parent | 14074b0d336fcf80dc229ada4727345ec642222f (diff) |
i18n: i18n-diff-auditor: Handle some ( __ etc., without +(
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-rwxr-xr-x | i18n-diff-auditor | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/i18n-diff-auditor b/i18n-diff-auditor index ce2034f..a32b554 100755 --- a/i18n-diff-auditor +++ b/i18n-diff-auditor @@ -217,7 +217,15 @@ sub analyse_chunk_core () { and $ys[0]{E} eq '(' and is_trans($ys[1])) { $next_y->(); # ( - $next_y->(); # __ f_ + $next_y->(); # __ f_ i_ + @y_expect_suffix = ')'; + } elsif ($y->{E} eq '(' + and @ys > 2 + and is_trans($ys[0]) + and @analysed_y + and (grep { $_ eq $analysed_y[-1] } (qw( => [ { ? : . ), + '(', ',') )) { + $next_y->(); # __ f_ i_ @y_expect_suffix = ')'; } my $string_changed; |