Handle lack of funeral date

nigelhorne · Aug 11, 2024 · dea4b1b · dea4b1b
1 parent 1476b40
commit dea4b1b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gedcom b/gedcom
@@ -6626,7 +6626,7 @@ sub print_person
 						$record = $cremation;
 					}
 					if(defined($record)) {
-						if($funeral && (datecmp($funeral->date(), $record->date()) == 0) && (my $place = place({ person => $person, record => $funeral }))) {
+						if($funeral && $record->date() && (datecmp($funeral->date(), $record->date()) == 0) && (my $place = place({ person => $person, record => $funeral }))) {
 							if(my $weather = weather({ person => $person, record => $funeral, meteo => $meteo })) {
 								$phrase->append(" ($weather)");
 							}