Skip to content

Commit 41c8394

Browse files
committed
Don't die trying to translate navy
1 parent d9aa1d1 commit 41c8394

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

gedcom

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -13159,7 +13159,7 @@ sub dump_geocoder_log
1315913159

1316013160
# Capitalise the first character of each word (including hyphenated words)
1316113161
sub sortoutcase {
13162-
my $field = lc(shift); # downcase everything first
13162+
my $field = lc(shift); # downcase everything first
1316313163
return Text::Capitalize::capitalize_title($field);
1316413164
}
1316513165

@@ -14029,7 +14029,7 @@ sub new
1402914029
my ($class, $pdf) = @_;
1403014030

1403114031
# Validate input
14032-
die 'Invalid PDF::API2 object' unless($pdf->can('page'));
14032+
die 'Invalid object' unless($pdf->can('page'));
1403314033

1403414034
# Return the blessed object
1403514035
return bless { y => 750, page => $pdf->page(), page_number => $page_number++ }, $class;
@@ -14196,6 +14196,7 @@ living::living
1419614196
living person::living person
1419714197
married::married
1419814198
mother::mother
14199+
navy::navy
1419914200
nephew::nephew
1420014201
nephews::nephews
1420114202
of::of

0 commit comments

Comments
 (0)