X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=i18n-diff-auditor;h=a03f0b01ea1b41f03f06c3ddf451191a743564de;hp=341733b41e43cd9b908db75da2a215ace49e67c6;hb=d51d861f48347553c37c9897110886d5f30981f4;hpb=2b844820d3d171b554c43bcc69b907932201f769 diff --git a/i18n-diff-auditor b/i18n-diff-auditor index 341733b4..a03f0b01 100755 --- a/i18n-diff-auditor +++ b/i18n-diff-auditor @@ -220,6 +220,7 @@ sub semiparse ($) { push @o, { T => 'specvar', E => $&, P => $& }; } elsif (!length) { last; + } elsif (s{^\#.*\n}{}) { } else { m{^.{0,10}}; die "cannot tokenise \`$&'"; @@ -251,8 +252,8 @@ our @analysed_x; our @analysed_y; sub analyse_chunk_core () { + $before //= ''; 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 = ();