add xml header to xml files generated

1 files changed, 1 insertions, 0 deletions

diff --git a/genhdlist2 b/genhdlist2
index d42158d..98e20e5 100644
--- a/genhdlist2
+++ b/genhdlist2
@@ -226,6 +226,7 @@ sub open_xml_lzma {
     my ($file) = @_;
     open(my $F, "| lzma -5 > $file") or die "can't open $file\n";
     binmode $F, ':utf8';
+    print $F qq(<?xml version="1.0" encoding="utf-8"?>\n);
     print $F "<media_info>";
     $F;
 }