Merge pull request #4151 from mbab/hfixwarn

quick hack to prevent perl warnings in FileIO.pm
DivinumOfficium · Oct 30, 2024 · a6adf73 · a6adf73
2 parents c66ba36 + d06bccd
commit a6adf73
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/web/cgi-bin/horas/specials/orationes.pl b/web/cgi-bin/horas/specials/orationes.pl
@@ -378,6 +378,7 @@ sub oratio {
       my @centries = $cv == 1 ? @ccommemoentries : @commemoentries;
 
       foreach my $commemo (@centries) {
+        next unless $commemo;
         setbuild2("Comm-$cv: $commemo");
 
         my $key = 0;    # let's start with lowest rank