From 4083fa98e1d897c9076d410fa5d9693197ff489a Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Mon, 14 Oct 2024 10:51:57 -0400
Subject: [PATCH] Fix FPs finding duplicate people

---
 gedcom | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gedcom b/gedcom
index 91fc5f3..af18c7d 100755
--- a/gedcom
+++ b/gedcom
@@ -1872,7 +1872,7 @@ sub print_person
 					my $year = get_year_from_date($pdob);
 					next if(abs($yob - $year) > 2);
 					if((my $f1 = $person->father()) && (my $f2 = $possible->father())) {
-						if((my $fdob = dateofbirth($person)) && (my $pfdob = dateofbirth($f2))) {
+						if((my $fdob = dateofbirth($f1)) && (my $pfdob = dateofbirth($f2))) {
 							# Fathers born more than 10 years apart - not a dup
 							next if(abs(get_year_from_date($fdob) - get_year_from_date($pfdob)) > 10);
 						}