From 47915b561fb711973199daa2fc5a5f4dac3e22c7 Mon Sep 17 00:00:00 2001
From: Barry Haddow <barry.haddow@gmail.com>
Date: Tue, 30 Jun 2020 08:10:56 +0100
Subject: [PATCH] escape ampersands

---
 scripts/ems/support/wrap-xml.perl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scripts/ems/support/wrap-xml.perl b/scripts/ems/support/wrap-xml.perl
index 52fc0c001..0beb8b921 100755
--- a/scripts/ems/support/wrap-xml.perl
+++ b/scripts/ems/support/wrap-xml.perl
@@ -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;