Fix FPs finding duplicate people

nigelhorne · Oct 14, 2024 · 4083fa9 · 4083fa9
1 parent e619332
commit 4083fa9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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);
 						}