diff options
Diffstat (limited to 'i18n-diff-auditor')
-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; |