Remove dbpedia false positive

nigelhorne · Sep 28, 2024 · 20ce180 · 20ce180
1 parent 9b1fc88
commit 20ce180
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/ged2site b/ged2site
@@ -15653,10 +15653,15 @@ sub dbpedia
 												next RESULT;
 											}
 										} elsif(($uri =~ /(\d{3,4})s_deaths/)) {
-											if($yob > ($1 + 10)) {
+											if($yob > ($1 + 20)) {
 												# Born after the end of the decade this person died
 												next RESULT;
 											}
+										} elsif(($uri =~ /(\d{3,4})s_births/)) {
+											if($yob < ($1 - 20)) {
+												# Born sometime before the start of the decard this person was born
+												next RESULT;
+											}
 										} elsif($uri =~ /(\d\d)th-century_deaths/) {
 											my $c = ($1 + 1) * 100;
 											if($yob > $c) {