quick hack to prevent perl warnings in FileIO.pm

eg. Laudes 12/14/2024 1960
DivinumOfficium · Oct 30, 2024 · d06bccd · d06bccd
1 parent e4b68b9
commit d06bccd
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