Hide any warning messages that come out of XML::LibXML.

XML::LibXML is very verbose about any little issues it encounters,
just hide them.

In this case this is to fix encountering an unknown unicode
character - � .

diff --git a/bin/mythtv-status b/bin/mythtv-status
index 26901daabe520e55234ff6c29d446e87c4c85a1d..74892daba043dbbbd9e1261356704ff6444b1987 100755 (executable)
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -555,8 +555,15 @@ sub load_xml {
 
   clean_xml(\$status);
 
+  # Try and hide any error messages thar XML::LibXML insists on printing out.
+  open my $olderr, ">&STDERR";
+  open(STDERR, "> /dev/null") || die "Can't redirect stderr to /dev/null: $!";
+
   my $xml = eval { $parser->parse_string( $status ) };
 
+  close (STDERR);
+  open (STDERR, ">&$olderr");
+
   if ($@) {
     die "Failed to parse XML: $@\n";
   }