Catch non ref birth details

nigelhorne · Dec 31, 2023 · 0e07113 · 0e07113
1 parent f70f8d7
commit 0e07113
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/gedcom b/gedcom
@@ -11222,6 +11222,9 @@ sub dateofbirth {
 		my @b = $person->birth();
 
 		for my $i(0..1) {
+			if(!ref($b[$i])) {
+				die 'FIXME: ', $person->as_string(), ': ', $b[$i], ' is not a ref';
+			}
 			foreach my $item(@{$b[$i]->{'items'}}) {
 				if(($item->tag() eq '_PRIM') && ($item->value() eq 'Y')) {
 					$dateofbirth = $b[$i]->date();