From e8dbaf58e9d8c1978896c8752e366c3f4d7803f0 Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Tue, 9 Jul 2024 10:13:26 -0400
Subject: [PATCH] Start to try appendconjunction()

---
 gedcom | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gedcom b/gedcom
index 72f99c0..8581c92 100755
--- a/gedcom
+++ b/gedcom
@@ -2669,7 +2669,7 @@ sub print_person
 		}
 
 		# my @children = map { $_->children() } $person->fams();
-		my @children = map { Class::Simple::Readonly::Cached->new({ object => $_, cache => {}, quiet => 1 }) } 
+		my @children = map { Class::Simple::Readonly::Cached->new({ object => $_, cache => {}, quiet => 1 }) }
 			map { $_->children() } $person->fams();
 		my $numberofchildren = scalar(@children);
 
@@ -2902,7 +2902,7 @@ sub print_person
 			$phrase = Data::Text->new();
 		}
 		if(scalar(@phrases)) {
-			$bio->append(conjunction(map { $_->as_string() } @phrases))->append('.  ');
+			$bio->appendconjunction(@phrases)->append('.  ');
 			$phrase = Data::Text->new();
 			@phrases = ();
 		}
@@ -3133,7 +3133,7 @@ sub print_person
 						push @phrases, $phrase;
 					}
 					if(scalar(@phrases)) {
-						$bio->append(conjunction(map { $_->as_string() } @phrases))->append('.  ');
+						$bio->appendconjunction(@phrases)->append('.  ');
 						$phrase = Data::Text->new();
 						@phrases = ();
 					}