Smoother English on spousal relationships with home person

nigelhorne · Nov 2, 2023 · 0ca443e · 0ca443e
1 parent 500b7b9
commit 0ca443e
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/gedcom b/gedcom
@@ -2996,17 +2996,13 @@ sub print_person
 			if($language eq 'French') {
 				$phrase->append(" de votre $spouserelationship");
 			} else {
-				$phrase->append(" of your $spouserelationship");
+				$phrase->append(" of your $spouserelationship ");
 			}
 			if(my $s = $spouse->as_string({ middle_names => 1, title => 1 })) {
-				$phrase->append(" $s");
+				$phrase->append("$s ");
 			} else {
 				complain({ person => $spouse, warning => 'Seems to have no name' });
 			}
-			if($phrase->length()) {
-				push @phrases, $phrase;
-				$phrase = Data::Text->new();
-			}
 			$haveprintedspousename = 1;
 		} elsif(($mother || $father) &&
 			($dateofbirth || $dateofbaptism || $placeofbirth || $placeofbaptism || $dateofmarriage) &&