From fe3ccfcafd32d00c60f878436e460f48bb5838bd Mon Sep 17 00:00:00 2001
From: Dirk Zimoch <dirk.zimoch@psi.ch>
Date: Tue, 20 May 2025 13:41:54 +0200
Subject: [PATCH] ensure uft8 encoding in pod files

---
 modules/database/src/tools/dbdToMD.pl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/modules/database/src/tools/dbdToMD.pl b/modules/database/src/tools/dbdToMD.pl
index 4709f01cd..50524ce1e 100644
--- a/modules/database/src/tools/dbdToMD.pl
+++ b/modules/database/src/tools/dbdToMD.pl
@@ -135,7 +135,13 @@ my $pod = join "\n",
         }
         elsif (m/^ =title \s+ (.*)/x) {
             $title = $1;
-            "=head1 $title";
+            "=head1 $title\n\n=encoding utf8\n";
+        }
+        elsif (m/^ =encoding \s+ (.*)/x) {
+            my $enc = $1;
+            die "Encoding '$enc' conflicts with 'utf8' in $infile POD directive\n"
+                unless $enc =~ m/^ utf-?8 $/ix;
+            # ignore, we already have =encoding utf8
         }
         else {
             $_;
@@ -196,7 +202,7 @@ sub rtypeToMD {
 sub fieldTableRow {
     my ($fld, $dbd) = @_;
     if ($fld eq '-') {
-        return "| \x{22EE}".(" " x 83)."||||||||";
+        return "| \N{VERTICAL ELLIPSIS}".(" " x 82)."||||||||";
     }
     my @md;
     push @md, sprintf("%-5s", $fld->name), sprintf("%-26s", $fld->attribute('prompt'));