From 334750d1a92573ad4ed3817c60b15b20da0fa83b Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 30 Sep 2018 23:38:29 +0100 Subject: [PATCH 1/1] i18n: i18n-diff-auditor: introduce is_trans (nfc) Signed-off-by: Ian Jackson --- i18n-diff-auditor | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/i18n-diff-auditor b/i18n-diff-auditor index fbf57757..80840913 100755 --- a/i18n-diff-auditor +++ b/i18n-diff-auditor @@ -107,7 +107,8 @@ our ($ihunkhead, $ihunkend); our ($ichunkstart, $ichunkend); our ($before, $after); -sub is_string ($) { $_[0]{T} =~ m/heredoc|string/; }; +sub is_string ($) { $_[0]{T} =~ m/heredoc|string/; } +sub is_trans ($) { grep { $_[0]{E} eq $_ } qw(__ f_); } sub semiparse ($) { ($_) = @_; @@ -210,14 +211,14 @@ sub analyse_chunk_core () { if ($y->{E} eq '+' and @ys >= 3 and $ys[0]{E} eq '(' - and ($ys[1]{E} eq '__' or $ys[2]{E} eq 'f_')) { + and is_trans($ys[1])) { $next_y->(); # ( $next_y->(); # __ f_ @y_expect_suffix = ')'; } my $string_changed; my $ye = $y->{E}; - if ($ye eq '__' or $ye eq 'f_') { + if (is_trans($y)) { $next_y->(); die "__ on non-string $y->{P}\n" unless is_string($y); die "__ on was non-string $y->{P}\n" unless is_string($x); -- 2.30.2