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");