Catch errant dates

nigelhorne · Oct 23, 2023 · c29b3cb · c29b3cb
1 parent bb2371f
commit c29b3cb
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/README.md b/README.md
@@ -184,7 +184,6 @@ Of course you could also run gedcom as root,
 but I strongly advise you don't do that.
 
 [Library](https://github.com/nigelhorne/lib) - library of code common with
-[ged2site](https://github.com/nigelhorne/ged2site).
 
 ## Acknowledgements
 

diff --git a/gedcom b/gedcom
@@ -10818,7 +10818,7 @@ sub datecmp($$)
 		}
 
 		if($left !~ /^\d{3,4}$/) {
-			if($left !~ /[a-z]/i) {
+			if(($left !~ /[a-z]/i) || ($left =~ /[a-z]$/)) {
 				my $i = 0;
 				while((my @call_details = caller($i++))) {
 					print STDERR "\t", colored($call_details[2] . ' of ' . $call_details[1], 'red'), "\n";