diff options
Diffstat (limited to 'i18n-diff-auditor')
-rwxr-xr-x | i18n-diff-auditor | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/i18n-diff-auditor b/i18n-diff-auditor index 341733b..a03f0b0 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 = (); |