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 a32b554..61d7330 100755 --- a/i18n-diff-auditor +++ b/i18n-diff-auditor @@ -132,7 +132,7 @@ sub semiparse ($) { ( .* \n ) ( (?: (?! $d) .* \n )* ) $d \n - }{ $1 }x or die "missing end of here doc $d\n"; + }{ $1 }xe or die "missing end of here doc $d\n"; $o[$#o]{V} = $2; } elsif (s{^ (["'])( (?: [^\\'"] | \\ [^"'] @@ -275,6 +275,7 @@ sub analyse_chunk_core () { if ($fmt !~ m{\%[^\%]}) { $exactly->($fmt, '(tail)'); $fmt = ''; + die "text deleted from end of string\n" if length $xs; last; } $exactly->($`, '(literal)'); |