Fix adding to undefined value

nigelhorne · Sep 7, 2024 · 98d675e · 98d675e
1 parent 8cc8f94
commit 98d675e
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/gedcom b/gedcom
@@ -6437,10 +6437,14 @@ sub print_person
 									$year2 = $2;
 									$date2 =~ s/,\s//;
 								}
-								push @phrases, $phrase;
-								$bio->append(conjunction(map { $_->as_string() } @phrases))->append('.  ');
-								$phrase = Data::Text->new();
-								@phrases = ();
+								if($phrase->length()) {
+									push @phrases, $phrase;
+								}
+								if(scalar(@phrases)) {
+									$bio->appendconjunction(@phrases)->append('.  ');
+									$phrase = Data::Text->new();
+									@phrases = ();
+								}
 								if(defined($year1) && defined($year2) && ($year1 == $year2)) {
 									if($date1 eq 'in ') {
 										$date1 = '';