From 239cee0ca4bb44f59b56b41c44281b2b2eea6479 Mon Sep 17 00:00:00 2001 From: Nigel Horne Date: Thu, 11 Jul 2024 20:37:27 -0400 Subject: [PATCH] Find more living with parents --- gedcom | 1 + 1 file changed, 1 insertion(+) diff --git a/gedcom b/gedcom index cc7b7ff..8e88e5d 100755 --- a/gedcom +++ b/gedcom @@ -4962,6 +4962,7 @@ sub print_person my $address = $residence->address(); my $road = $address; + $rdate =~ s/^0//; # FIXME: this should have been done earlier - see earlier FIXME if($road) { if($road =~ /,\s*(.+)/) { $road = $1;