i18n: i18n-diff-auditor: Handle comments

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

diff --git a/i18n-diff-auditor b/i18n-diff-auditor
index 341733b41e43cd9b908db75da2a215ace49e67c6..a03f0b01ea1b41f03f06c3ddf451191a743564de 100755 (executable)
--- a/i18n-diff-auditor
+++ b/i18n-diff-auditor
@@ -220,6 +220,7 @@ sub semiparse ($) {
            push @o, { T => 'specvar', E => $&, P => $& };
        } elsif (!length) {
            last;
            push @o, { T => 'specvar', E => $&, P => $& };
        } elsif (!length) {
            last;

+       } elsif (s{^\#.*\n}{}) {

        } else {
            m{^.{0,10}};
            die "cannot tokenise \`$&'";
        } else {
            m{^.{0,10}};
            die "cannot tokenise \`$&'";


@@ -251,8 +252,8 @@ our @analysed_x;
 our @analysed_y;
 
 sub analyse_chunk_core () {
 our @analysed_y;
 
 sub analyse_chunk_core () {

+    $before //= '';

     die "plain deletion\n" unless defined $after;
     die "plain deletion\n" unless defined $after;

-    die "plain insertion\n" unless defined $before;

     my @xs = semiparse $before;
     my @ys = semiparse $after;
     @analysed_x = @analysed_y = ();
     my @xs = semiparse $before;
     my @ys = semiparse $after;
     @analysed_x = @analysed_y = ();