File tree Expand file tree Collapse file tree 2 files changed +4
-0
lines changed
Expand file tree Collapse file tree 2 files changed +4
-0
lines changed Original file line number Diff line number Diff line change @@ -284,6 +284,8 @@ sub extract_family_info
284284 push @{$family {' spouse' }}, { name => $1 }
285285 } elsif ($text =~ / \b survived by her husband ([^.,;]+)/i ) {
286286 push @{$family {' spouse' }}, { name => $1 , ' status' => ' living' , ' sex' => ' M' }
287+ } elsif ($text =~ / \b survived by his wife ([^.,;]+)/i ) {
288+ push @{$family {' spouse' }}, { name => $1 , ' status' => ' living' , ' sex' => ' F' }
287289 }
288290
289291 # Ensure spouse location is properly handled
Original file line number Diff line number Diff line change @@ -13851,6 +13851,8 @@ sub extract_family_info
1385113851 push @{$family {' spouse' }}, { name => $1 }
1385213852 } elsif ($text =~ / \b survived by her husband ([^.,;]+)/i ) {
1385313853 push @{$family {' spouse' }}, { name => $1 , ' status' => ' living' , ' sex' => ' M' }
13854+ } elsif ($text =~ / \b survived by his wife ([^.,;]+)/i ) {
13855+ push @{$family {' spouse' }}, { name => $1 , ' status' => ' living' , ' sex' => ' F' }
1385413856 }
1385513857
1385613858 # Ensure spouse location is properly handled
You can’t perform that action at this time.
0 commit comments