Remove nested if

gedcom

@@ -4380,25 +4380,20 @@ sub print_person
 						# may be the case where someone married more than once,
 						# and has a child by a 3rd unknown (or unfound) person
 						if($opts{'w'}) {
-							if(($numberofchildren - $childrenseen) == 1) {
-								if($unknown) {
-									complain({ person => $person, warning => 'One of the parents of ' . $unknown->as_string() . ' is not known'});
-								} else {
-									complain({ person => $person, warning => 'One of the parents of 1 child is not known'});
-								}
-							} else {
-								complain({ person => $person, warning => 'One of the parents of ' . ($numberofchildren - $childrenseen) . ' children is not known'});
-							}
+							my $children_missing_parents = $numberofchildren - $childrenseen;
+							my $warning_message = $children_missing_parents == 1
+							? 'One of the parents of ' . ($unknown ? $unknown->as_string() : '1 child') . ' is not known'
+							: "One of the parents of $children_missing_parents children is not known";
+
+							complain({ person => $person, warning => $warning_message });
 						}
 					} else {
 						foreach my $spouse(@spouses) {
 							if($parentofall && $childrenbyspouse{$spouse->xref()}) {
 								$parentofall = undef;
 								last;
 							}
-							if($childrenbyspouse{$spouse->xref()}) {
-								$parentofall = $spouse;
-							}
+							$parentofall = $spouse if $childrenbyspouse{$spouse->xref()};
 						}
 					}