Remove blank strings from the family hash

Author: nigelhorne

bin/extract

@@ -109,7 +109,7 @@ sub extract_family_info
 		my @children = extract_names_from_phrase($raw);
 		push @{$family{children}}, map { { name => $_, sex => 'M' } } @children;
 	}
-	if($text =~ /\sdaughter?,\s*(.+?)[;\.]/) {
+	if($text =~ /\sdaughters?,\s*(.+?)[;\.]/) {
 		my $raw = $1;
 		$raw =~ s/\sand their .+//;
 		my @children = extract_names_from_phrase($raw);
@@ -382,8 +382,11 @@ sub extract_family_info
 
 	# Remove empty arrays the family hash
 	foreach my $key (keys %family) {
-		if (ref($family{$key}) eq 'ARRAY' && @{$family{$key}} == 0) {
-			delete $family{$key};
+		if(ref($family{$key}) eq 'ARRAY') {
+			$family{$key} = [ grep { /\S/ } @{$family{$key}} ];
+			if(@{$family{$key}} == 0) {
+				delete $family{$key};
+			}
 		}
 	}
 

gedcom

@@ -13676,7 +13676,7 @@ sub extract_family_info
 		my @children = extract_names_from_phrase($raw);
 		push @{$family{children}}, map { { name => $_, sex => 'M' } } @children;
 	}
-	if($text =~ /\sdaughter?,\s*(.+?)[;\.]/) {
+	if($text =~ /\sdaughters?,\s*(.+?)[;\.]/) {
 		my $raw = $1;
 		$raw =~ s/\sand their .+//;
 		my @children = extract_names_from_phrase($raw);
@@ -13949,8 +13949,11 @@ sub extract_family_info
 
 	# Remove empty arrays the family hash
 	foreach my $key (keys %family) {
-		if (ref($family{$key}) eq 'ARRAY' && @{$family{$key}} == 0) {
-			delete $family{$key};
+		if(ref($family{$key}) eq 'ARRAY') {
+			$family{$key} = [ grep { /\S/ } @{$family{$key}} ];
+			if(@{$family{$key}} == 0) {
+				delete $family{$key};
+			}
 		}
 	}