diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 02:39:47 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 02:42:15 +0100 |
commit | 59ca351b460f4d512134e56540addc7e84b6bc2b (patch) | |
tree | cf85336154d4f1f35ca617531fec750ff59bbc5d /i18n-diff-auditor | |
parent | 9d316cb3031bf4a6cfddb9bcef25fc3cbf809430 (diff) |
i18n: i18n-diff-auditor: Make qp global (nfc)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'i18n-diff-auditor')
-rwxr-xr-x | i18n-diff-auditor | 21 |
1 files 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"; } |