escape ampersands

This commit is contained in:
Barry Haddow 2020-06-30 08:10:56 +01:00
parent d90a8df862
commit 47915b561f

View File

@ -32,6 +32,7 @@ while(<SRC>) {
$line = "" if $line =~ /NO BEST TRANSLATION/;
$line =~ s/</&lt;/g;
$line =~ s/>/&gt;/g;
$line =~ s/&/&amp;/g;
if (/<\/seg>/) {
s/(<seg[^>]+> *).*(<\/seg>)/$1$line$2/i;
$missing_end_seg = 0;