diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 01:45:24 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-10-01 01:47:27 +0100 |
commit | 141beff43c4e636ab8ecb5db2a9910dc2301098b (patch) | |
tree | ff1af178a94e68bea722cd9f89d256014f3b8148 /i18n-diff-auditor | |
parent | 082759594b008c128c7f66791d9b0845bcb0da33 (diff) |
i18n: i18n-diff-auditor: bugfixes
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
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)'); |