Fix false positives on date ranges

nigelhorne · Nov 13, 2023 · 1938c91 · 1938c91
1 parent 02a8fb9
commit 1938c91
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/gedcom b/gedcom
@@ -4472,8 +4472,12 @@ sub print_person
 				print __LINE__, ": count = $count\n" if($opts{'v'});
 
 				if(defined($rdate) && ($rdate =~ /^\s*(.+\d\d)\s*\-\s*(.+\d\d)\s*$/)) {
-					complain({ person => $person, warning => "Changing date '$rdate' to 'bet $1 and $2'" });
-					$rdate = "bet $1 and $2";
+					my $start = $1;
+					my $end = $2;
+					if($end !~ /^\d\d\-\d\d$/) {
+						complain({ person => $person, warning => "Changing date '$rdate' to 'bet $start and $end'" });
+						$rdate = "bet $start and $end";
+					}
 				}
 
 				if(($count == 0) || !places_are_the_same({ person => $person, first => $residence, second => $residencelist[$count - 1] })) {