From 9d316cb3031bf4a6cfddb9bcef25fc3cbf809430 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Mon, 1 Oct 2018 01:52:56 +0100 Subject: i18n: i18n-diff-auditor: further not exactly debugging improvement Signed-off-by: Ian Jackson --- i18n-diff-auditor | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/i18n-diff-auditor b/i18n-diff-auditor index a92db5e..da629d9 100755 --- a/i18n-diff-auditor +++ b/i18n-diff-auditor @@ -265,10 +265,16 @@ sub analyse_chunk_core () { my ($lit, $what) = @_; my $xl = substr($xs, 0, length($lit)); if ($xl ne $lit) { - my $xsp = $xs; $xsp =~ s/\n/\\n/g; - my $litp = $lit; $litp =~ s/\n/\\n/g; - debug $ichunkstart, "not exactly x: ..\"$xsp\""; - debug $ichunkstart, "not exactly y: '$litp'"; + 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); my $next = @ys ? $ys[0]{P} : '(end)'; die "string contents mismatch near $what before $next\n"; } -- cgit v1.2.3