chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0827595
)
i18n: i18n-diff-auditor: bugfixes
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Mon, 1 Oct 2018 00:45:24 +0000
(
01:45
+0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Mon, 1 Oct 2018 00:47:27 +0000
(
01:47
+0100)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
i18n-diff-auditor
patch
|
blob
|
history
diff --git
a/i18n-diff-auditor
b/i18n-diff-auditor
index a32b554d90c53ca70d3dbffd513362e94bdc6e2d..61d7330f21d03c135355ef157b885e6b08303a71 100755
(executable)
--- 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 }x
e
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)');