From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 1 Oct 2018 02:04:48 +0000 (+0100)
Subject: i18n: i18n-diff-auditor: debugging changes
X-Git-Tag: archive/debian/7.0_pre1~40
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=48c68afc2da8437dbe274ba3013ece2d1515d9e9;ds=sidebyside

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 116b0f82..85392c09 100755
--- a/i18n-diff-auditor
+++ b/i18n-diff-auditor
@@ -122,6 +122,7 @@ sub qp ($) {
 sub semiparse ($) {
     ($_) = @_;
     my @o;
+    #my $in = $_;
     # 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 (;;) {
+		#print STDERR Dumper($fmt, $xs, \@xs, @ys);
 		if ($fmt !~ m{\%[^\%]}) {
 		    $exactly->($fmt, '(tail)');
 		    $fmt = '';