Origin: https://lists.debian.org/debian-perl/2025/07/msg00038.html
Author: Damyan Ivanov <dmn@debian.org>
Last-Update: 2025-07-26
Bug-Debian: https://bugs.debian.org/1007914
Description: Fix replacement of control characters

--- a/lib/File/KeePass.pm
+++ b/lib/File/KeePass.pm
@@ -1245,7 +1245,7 @@ sub escape_xml {
     s/</&lt;/g;
     s/>/&gt;/g;
     s/"/&quot;/g;
-    s/([^\x00-\x7F])/'&#'.(ord $1).';'/ge;
+    s/([^\x20-\x7F])/'&#'.(ord $1).';'/ge;
     return $_;
 }