File: escape_characters.patch

package info (click to toggle)
libfile-keepass-perl 2.03-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 320 kB
  • sloc: perl: 1,920; makefile: 2
file content (17 lines) | stat: -rw-r--r-- 479 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
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 $_;
 }