add xml header to xml files generated

2 files changed, 8 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index 2f57146..0115694 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,10 @@
+- genhdlist2:
+  o add xml header to xml files generated
+
+- parsehdlist, rpm2header
+  o fix support for rpm5
+  o update deprecated code
+
 - gendistrib:
   o if "xml-info" is set in media.cfg, pass --xml-info to genhdlist2
 
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;
 }