From 59ca351b460f4d512134e56540addc7e84b6bc2b Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Mon, 1 Oct 2018 02:39:47 +0100 Subject: i18n: i18n-diff-auditor: Make qp global (nfc) Signed-off-by: Ian Jackson --- i18n-diff-auditor | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/i18n-diff-auditor b/i18n-diff-auditor index da629d9..5630d7e 100755 --- a/i18n-diff-auditor +++ b/i18n-diff-auditor @@ -110,6 +110,15 @@ our ($before, $after); sub is_string ($) { $_[0]{T} =~ m/heredoc|string/; } sub is_trans ($) { grep { $_[0]{E} eq $_ } qw(__ f_ i_); } +sub qp ($) { + my ($p) = @_; + $p =~ s{\\}{\\\\}g; + $p =~ s{\'}{\\'}g; + $p =~ s{\n}{\\n}g; + $p =~ s{\t}{\\t}g; + return "'$p'"; +}; + sub semiparse ($) { ($_) = @_; my @o; @@ -265,16 +274,8 @@ sub analyse_chunk_core () { my ($lit, $what) = @_; my $xl = substr($xs, 0, length($lit)); if ($xl ne $lit) { - my $q = sub { - my ($p) = @_; - $p =~ s{\\}{\\\\}g; - $p =~ s{\'}{\\'}g; - $p =~ s{\n}{\\n}g; - $p =~ s{\t}{\\t}g; - return "'$p'"; - }; - debug $ichunkstart, "not exactly x: ..".$q->($xs); - debug $ichunkstart, "not exactly y: ".$q->($lit); + debug $ichunkstart, "not exactly x: ..".qp($xs); + debug $ichunkstart, "not exactly y: ".qp($lit); my $next = @ys ? $ys[0]{P} : '(end)'; die "string contents mismatch near $what before $next\n"; } -- cgit v1.2.3