File tree Expand file tree Collapse file tree 2 files changed +9
-9
lines changed
Expand file tree Collapse file tree 2 files changed +9
-9
lines changed Original file line number Diff line number Diff line change 4646 AUTOMATED_TESTING : 1
4747 run : |
4848 cpan -i App::cpanminus
49- cpanm --skip-satisfied -iqn Database::Abstraction Gedcom Genealogy::Gedcom::Date Date::Parse Getopt::Std Geo::Coder::OSM Geo::Coder::XYZ Term::ANSIColor Lingua::EN::NameParse Lingua::EN::NameCase Lingua::EN::Numbers::Ordinate Tie::Static DateTime::Format::Natural B::Lint LWP::UserAgent::Throttled LWP::Simple::WithCache URI::Find::Schemeless Sort::Key::DateTime Text::Names::GB autodie IPC::System::Simple Memoize Lingua::EN::ABC warnings::unused Lingua::EN::Inflect Geo::Coder::List Geo::Coder::CA Geo::StreetAddress::US Locale::US Geo::Coder::Postcodes List::Util File::Fetch~0.56 Geo::Coder::Ovi Geo::Coder::RandMcnally Geo::Coder::US::Census Geo::Coder::Bing Geo::Coder::GooglePlaces Geo::GeoNames HTML::Table Net::OAuth HTTP::Cache::Transparent DateTime::Format::Genealogy Locale::Object::Country Config::Auto Module::Load Geo::Coder::DataScienceToolkit LWP::UserAgent::Cached F/FR/FRIFFIN/Geo-Coder-PlaceFinder-0.1.tar.gz String::Compare Class::Simple::Cached Class::Simple::Readonly::Cached Geo::Coder::OpenCage Date::ICal Data::ICal Data::ICal::Entry::Event Data::ICal::DateTime Data::ICal::TimeZone Unicode::Diacritic::Strip Date::Manip Roman Data::Section::Simple CHI Locale::AU Locale::CA utf8::all Lingua::Conjunction Lingua::String Geo::Coder::Abbreviations Array::Iterator Data::Text XML::Hash Template Date::Cmp Encode::Wide
49+ cpanm --skip-satisfied -iqn Database::Abstraction Gedcom Genealogy::Gedcom::Date Date::Parse Getopt::Std Geo::Coder::OSM Geo::Coder::XYZ Term::ANSIColor Lingua::EN::NameParse Lingua::EN::NameCase Lingua::EN::Numbers::Ordinate Tie::Static DateTime::Format::Natural B::Lint LWP::UserAgent::Throttled LWP::Simple::WithCache URI::Find::Schemeless Sort::Key::DateTime Text::Names::GB autodie IPC::System::Simple Memoize Lingua::EN::ABC warnings::unused Lingua::EN::Inflect Geo::Coder::List Geo::Coder::CA Geo::StreetAddress::US Locale::US Geo::Coder::Postcodes List::Util File::Fetch~0.56 Geo::Coder::Ovi Geo::Coder::RandMcnally Geo::Coder::US::Census Geo::Coder::Bing Geo::Coder::GooglePlaces Geo::GeoNames HTML::Table Net::OAuth HTTP::Cache::Transparent DateTime::Format::Genealogy Locale::Object::Country Config::Auto Module::Load Geo::Coder::DataScienceToolkit LWP::UserAgent::Cached F/FR/FRIFFIN/Geo-Coder-PlaceFinder-0.1.tar.gz String::Compare Class::Simple::Cached Class::Simple::Readonly::Cached Geo::Coder::OpenCage Date::ICal Data::ICal Data::ICal::Entry::Event Data::ICal::DateTime Data::ICal::TimeZone Unicode::Diacritic::Strip Date::Manip Roman Data::Section::Simple CHI Locale::AU Locale::CA utf8::all Lingua::Conjunction Lingua::String Geo::Coder::Abbreviations Array::Iterator Data::Text XML::Hash Template Date::Cmp Encode::Wide Genealogy::Obituary::Parser
5050 - name : Run Tests
5151 run : |
5252 perl -MO=Lint ./gedcom
Original file line number Diff line number Diff line change @@ -4215,17 +4215,16 @@ sub print_person
42154215 $phrase -> append(' 1 child, ' );
42164216 }
42174217 } else {
4218+ $phrase -> append($numberofchildrenwiththisspouse );
42184219 if ($all_children_are_alive ) {
4219- $phrase -> append(" $numberofchildrenwiththisspouse surviving children" );
4220- } elsif ($language eq ' French' ) {
4221- $phrase -> append(" $numberofchildrenwiththisspouse enfants" );
4220+ $phrase -> append(' surviving children' );
42224221 } else {
4223- $phrase -> append(" $numberofchildrenwiththisspouse children" );
4224- }
4225- if ($placeofmarriage || $dateofmarriage ) {
4226- $phrase -> append(($language eq ' French' ) ? ' :' : ' :' );
4222+ $phrase -> append(i18n(' children' ));
4223+ if ($placeofmarriage || $dateofmarriage ) {
4224+ $phrase -> append(($language eq ' French' ) ? ' :' : ' :' );
4225+ }
4226+ $phrase -> append(' ' );
42274227 }
4228- $phrase -> append(' ' );
42294228 }
42304229 if ((!$placeofmarriage ) && !$dateofmarriage ) {
42314230 if (length (my $spouse_name = $spouse -> as_string({ middle_names => 1, title => 1 }))) {
@@ -14206,6 +14205,7 @@ on the same day::on the same day
1420614205on your father's side::on your father's side
1420714206on your mother's side::on your mother's side
1420814207parents::parents
14208+ raf::raf
1420914209she::she
1421014210sister::sister
1421114211sister-in-law::sister-in-law
You can’t perform that action at this time.
0 commit comments