- disabled warnings of XML::LibXML::Parser if recovery is enabled

perl/exit_strategy.pl

@@ -250,6 +250,9 @@ sub parse_iexml ($$) {
     # create object
     #
     #my $xp = XML::XPath->new (filename => $filename);
+  if ($recovery_flag) {
+    $recoverflag=2; # avoid warnings, see XML::LibXML::Parser POD about 'recovery'
+  }	
   my $dom = XML::LibXML->load_xml (location => $filename, recover => $recovery_flag, no_blanks=>1, compact=>1);
   my $xp = XML::LibXML::XPathContext->new($dom);
   $xp->registerNs("dnx", "http://www.exlibrisgroup.com/dps/dnx");