diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index c126bcfc41d4d870a6f0cc6fcb31255e753bddb8..7b447f4c2fa58e77b09d30bea38ff4a31ea7cce9 100644
--- a/perl/exit_strategy.pl
+++ b/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");