Handle empty date fields in gedcoms

nigelhorne · Jul 18, 2024 · 518e5fb · 518e5fb
1 parent bfd733e
commit 518e5fb
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/ged2site b/ged2site
@@ -13565,6 +13565,17 @@ sub parse_date
 	}
 
 	if(my $date = $params{'date'}) {
+		if(ref($date)) {
+			# Caused by empty value, e.g.:
+			#	1 BIRT
+			#	2 DATE 
+			#	2 PLAC VERMONT
+
+			# $Data::Dumper::Maxdepth = 2;
+			# print STDERR Data::Dumper->new([$dateofbirth])->Dump();
+			# die 'BUG: date() should return a scalar, got a ', ref($dateofbirth);
+			return;
+		}
 		if(lc($date) eq 'unknown') {
 			return;
 		}