From 621288d6c72d10f37fa4d41265acc0a1fc1bc880 Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <art1@andreas-romeyke.de>
Date: Fri, 26 Feb 2021 12:23:03 +0100
Subject: [PATCH] - disabled warnings of XML::LibXML::Parser if recovery is
enabled
---
perl/exit_strategy.pl | 3 +++
1 file changed, 3 insertions(+)
diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index c126bcf..7b447f4 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");
--
GitLab