i18n: i18n-diff-auditor: debugging changes

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

diff --git a/i18n-diff-auditor b/i18n-diff-auditor
index 116b0f82fd314fe005ef3de278ba39bbeae922c5..85392c0992b200cd238423ceb982d17ce2a601c0 100755 (executable)
--- a/i18n-diff-auditor
+++ b/i18n-diff-auditor
@@ -122,6 +122,7 @@ sub qp ($) {
 sub semiparse ($) {
     ($_) = @_;
     my @o;
 sub semiparse ($) {
     ($_) = @_;
     my @o;

+    #my $in = $_;

     # entries contain
     #   T     type
     #   E     exact input text (does not contain here doc contents)
     # entries contain
     #   T     type
     #   E     exact input text (does not contain here doc contents)


@@ -282,6 +283,7 @@ sub analyse_chunk_core () {
                $xs = substr($xs, length($lit));
            };
            for (;;) {
                $xs = substr($xs, length($lit));
            };
            for (;;) {

+               #print STDERR Dumper($fmt, $xs, \@xs, @ys);

                if ($fmt !~ m{\%[^\%]}) {
                    $exactly->($fmt, '(tail)');
                    $fmt = '';
                if ($fmt !~ m{\%[^\%]}) {
                    $exactly->($fmt, '(tail)');
                    $fmt = '';