From 5cf35eaf5aae77664a06099e82d24c2a3df80f82 Mon Sep 17 00:00:00 2001
From: mbab <marcin.babnis@gmail.com>
Date: Mon, 25 Nov 2024 08:46:38 +0100
Subject: [PATCH] fix false initial in Psalm 118

---
 web/cgi-bin/horas/horasscripts.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/web/cgi-bin/horas/horasscripts.pl b/web/cgi-bin/horas/horasscripts.pl
index 535dbab766..a317e4f0fa 100644
--- a/web/cgi-bin/horas/horasscripts.pl
+++ b/web/cgi-bin/horas/horasscripts.pl
@@ -236,7 +236,7 @@ sub psalm : ScriptFunc {
   handleverses(\@lines);
 
   # put initial at begin
-  $lines[0] = "v. $lines[0]" if ($nonumbers || $psnum == 234);    # 234 - quiqumque has no numbers
+  $lines[0] =~ s/^(?=\p{Letter})/v. / if ($nonumbers || $psnum == 234);    # 234 - quiqumque has no numbers
 
   my $output = "!$title";
   $output .= " [" . ($column == 1 ? ++$psalmnum1 : ++$psalmnum2) . "]"