From efe0f368a3fc0abb0dd18946d116c7304cdec60c Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Thu, 22 Aug 2024 09:19:43 -0400
Subject: [PATCH] Try harder to get event records

---
 gedcom | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/gedcom b/gedcom
index ec589cb..2ee157a 100755
--- a/gedcom
+++ b/gedcom
@@ -2593,8 +2593,12 @@ sub print_person
 	if(scalar(@events) == 2) {
 		my $event = $events[1];
 		if(!ref($event)) {
-			# red_warning({ person => $person, warning => "Event record is just description ($event), information has been lost" });
-			pop @events;
+			if($event = $person->tag_record('EVEN', 2)) {
+				$events[1] = $event;
+			} else {
+				red_warning({ person => $person, warning => "Event record is just description ($event), information has been lost" });
+				pop @events;
+			}
 		}
 	}