diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-09-30 23:35:31 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 00:54:38 +0100 |
commit | 45017d1dec0c2cc436c3a20156473154908572e0 (patch) | |
tree | e9b1ac115d365f14073a4f2f0f7ee2463c78029b | |
parent | 6b4785ca4c2451853f9d87dbe64e8b230c67d5d7 (diff) |
i18n: i18n-diff-auditor: improve debug output
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-rwxr-xr-x | i18n-diff-auditor | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/i18n-diff-auditor b/i18n-diff-auditor index b4fc596..6f9dab5 100755 --- a/i18n-diff-auditor +++ b/i18n-diff-auditor @@ -248,8 +248,8 @@ sub analyse_chunk_core () { my ($lit, $what) = @_; my $xl = substr($xs, 0, length($lit)); if ($xl ne $lit) { - debug $ichunkstart, "not exactly x: $xs"; - debug $ichunkstart, "not exactly y: $lit"; + debug $ichunkstart, "not exactly x: ..\"$xs\""; + debug $ichunkstart, "not exactly y: $lit"; my $next = @ys ? $ys[0]{P} : '(end)'; die "string contents mismatch near $what before $next\n"; } @@ -289,6 +289,7 @@ sub analyse_chunk_core () { # lookahead shows close of containing scope # or lower precedence operator unshift @ys, $y; + pop @analysed_y; last; } $xs =~ s{^\s+}{}; |