From 39cf6b5825ed5e7f7ad06b797276fc9677c74143 Mon Sep 17 00:00:00 2001
From: Nigel Horne <njh@bandsman.co.uk>
Date: Fri, 23 Aug 2024 13:35:38 -0400
Subject: [PATCH] Fix uninitialized variable and i18n

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

diff --git a/gedcom b/gedcom
index bdfe98a..e6e3e86 100755
--- a/gedcom
+++ b/gedcom
@@ -3058,7 +3058,7 @@ sub print_person
 				$phrase->append(" il y a $aod " . (($aod == 1) ? 'an' : 'ans') .
 					($opts{'t'} ? ' demain' : " aujourd'hui"));
 			} elsif($language eq 'German') {
-				$phrase->append("vor $aod " . (($aob == 1) ? 'Jahr' : 'Jahre') .
+				$phrase->append("vor $aod " . (($aod == 1) ? 'Jahr' : 'Jahre') .
 					($opts{'t'} ? ' morgen' : ' heute'));
 			} else {
 				$phrase->append("died $aod " . (($aod == 1) ? 'year' : 'years') . ' ago ' .
@@ -5346,7 +5346,7 @@ sub print_person
 							} elsif(($same_road_as_mother || $same_road_as_father) && !$printed_sibling) {
 								if($age >= 30) {
 									$residencestring .= ' on the same road as ' .
-												($person->pronoun() eq 'She' ? 'her' : 'his');
+											($person->pronoun() eq 'She' ? 'her' : 'his');
 									$printed_sibling = 1;
 									$first = 0;
 
@@ -7213,7 +7213,7 @@ sub print_person
 						$phrase->append("\n\t");
 					}
 					$phrase->append(given_names($child) .
-						' was born ' .
+						i18n(' was born ') .
 						year({ person => $child, date => $dob }));
 					if($opts{'w'} && ($birth_dt || $death_dt) &&
 					   ($dob !~ /^\d{3,4}$/) && ($dob =~ /^\d/) &&
@@ -13844,6 +13844,8 @@ sub DESTROY {
 
 1;
 
+package main;
+
 # Must all be in lower case
 __DATA__
 @@ English