diff options
Diffstat (limited to 'i18n-diff-auditor')
| -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+}{}; |