diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 01:52:56 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 01:59:26 +0100 |
commit | 9d316cb3031bf4a6cfddb9bcef25fc3cbf809430 (patch) | |
tree | 0f8fc0b2ad3b158087c9a034c1342f4b27376dde | |
parent | 21600a2e332fd1074540b6529ea9e1a53f34a6df (diff) |
i18n: i18n-diff-auditor: further not exactly debugging improvement
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-rwxr-xr-x | i18n-diff-auditor | 14 |
1 files 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"; } |