i18n: i18n-diff-auditor: Print deleted text

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/i18n-diff-auditor b/i18n-diff-auditor
index 5630d7e8dc192b7082ba6a66fcdf6d71c2845daf..beb3a9ab10a00e25732ca50dd43bfe9261995fef 100755 (executable)
--- a/i18n-diff-auditor
+++ b/i18n-diff-auditor
@@ -285,7 +285,8 @@ sub analyse_chunk_core () {
                if ($fmt !~ m{\%[^\%]}) {
                    $exactly->($fmt, '(tail)');
                    $fmt = '';
                if ($fmt !~ m{\%[^\%]}) {
                    $exactly->($fmt, '(tail)');
                    $fmt = '';

-                   die "text deleted from end of string\n" if length $xs;
+                   die "text deleted from end of string: ".qp($xs)."\n"
+                       if length $xs;

                    last;
                }
                $exactly->($`, '(literal)');
                    last;
                }
                $exactly->($`, '(literal)');