From 0e0711304fe489901f67bd9b6c1fd1b19da13413 Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Sat, 30 Dec 2023 22:51:06 -0500
Subject: [PATCH] Catch non ref birth details

---
 gedcom | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/gedcom b/gedcom
index 924590f..3ffb419 100755
--- 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();