From 7f0075089e5e030a5b7c75452723241a278349ac Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <andreas.romeyke@slub-dresden.de>
Date: Thu, 3 Apr 2025 13:21:46 +0200
Subject: [PATCH] - add no_blanks option to parser
---
perl/exit_strategy.pl | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 49c4082..d2cc3fa 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -418,10 +418,11 @@ sub check_if_db_conform ($string, $filename) {
my $parser;
sub get_parser ( $recovery_flag ){
if (defined $parser) { return $parser;}
- $parser = XML::LibXML->new( recover => $recovery_flag,
- compact => 1,
- no_network => 1,
- recover => $recovery_flag,
+ $parser = XML::LibXML->new(recover => $recovery_flag,
+ compact => 1,
+ no_network => 1,
+ recover => $recovery_flag,
+ no_blanks => 1,
);
return $parser;
}
--
GitLab