Merge b71a1cb into 906ef34

ledgersmb · Oct 22, 2023 · 8107718 · 8107718
2 parents 906ef34 + b71a1cb
commit 8107718
Show file tree

Hide file tree

Showing 5 changed files with 31 additions and 53 deletions.
diff --git a/cpanfile b/cpanfile
@@ -39,33 +39,33 @@ requires 'JSONSchema::Validator';
 requires 'List::MoreUtils';
 requires 'Locale::CLDR';
 # Keep thoss in sync with the languages defined in Pg-database.sql
-requires 'Locale::CLDR::Locales::Ar';
-requires 'Locale::CLDR::Locales::Bg';
-requires 'Locale::CLDR::Locales::Ca';
-requires 'Locale::CLDR::Locales::Cs';
-requires 'Locale::CLDR::Locales::Da';
-requires 'Locale::CLDR::Locales::De';
-requires 'Locale::CLDR::Locales::El';
-requires 'Locale::CLDR::Locales::En';
-requires 'Locale::CLDR::Locales::Es';
-requires 'Locale::CLDR::Locales::Et';
-requires 'Locale::CLDR::Locales::Fi';
-requires 'Locale::CLDR::Locales::Fr';
-requires 'Locale::CLDR::Locales::Hu';
-requires 'Locale::CLDR::Locales::Id';
-requires 'Locale::CLDR::Locales::Is';
-requires 'Locale::CLDR::Locales::It';
-requires 'Locale::CLDR::Locales::Lt';
-requires 'Locale::CLDR::Locales::Ms';
-requires 'Locale::CLDR::Locales::Nb';
-requires 'Locale::CLDR::Locales::Nl';
-requires 'Locale::CLDR::Locales::Pl';
-requires 'Locale::CLDR::Locales::Pt';
-requires 'Locale::CLDR::Locales::Ru';
-requires 'Locale::CLDR::Locales::Sv';
-requires 'Locale::CLDR::Locales::Tr';
-requires 'Locale::CLDR::Locales::Uk';
-requires 'Locale::CLDR::Locales::Zh';
+requires 'Locale::CLDR::Locales::Ar', '0.34.2';
+requires 'Locale::CLDR::Locales::Bg', '0.34.2';
+requires 'Locale::CLDR::Locales::Ca', '0.34.2';
+requires 'Locale::CLDR::Locales::Cs', '0.34.2';
+requires 'Locale::CLDR::Locales::Da', '0.34.2';
+requires 'Locale::CLDR::Locales::De', '0.34.2';
+requires 'Locale::CLDR::Locales::El', '0.34.2';
+requires 'Locale::CLDR::Locales::En', '0.34.2';
+requires 'Locale::CLDR::Locales::Es', '0.34.2';
+requires 'Locale::CLDR::Locales::Et', '0.34.2';
+requires 'Locale::CLDR::Locales::Fi', '0.34.2';
+requires 'Locale::CLDR::Locales::Fr', '0.34.2';
+requires 'Locale::CLDR::Locales::Hu', '0.34.2';
+requires 'Locale::CLDR::Locales::Id', '0.34.2';
+requires 'Locale::CLDR::Locales::Is', '0.34.2';
+requires 'Locale::CLDR::Locales::It', '0.34.2';
+requires 'Locale::CLDR::Locales::Lt', '0.34.2';
+requires 'Locale::CLDR::Locales::Ms', '0.34.2';
+requires 'Locale::CLDR::Locales::Nb', '0.34.2';
+requires 'Locale::CLDR::Locales::Nl', '0.34.2';
+requires 'Locale::CLDR::Locales::Pl', '0.34.2';
+requires 'Locale::CLDR::Locales::Pt', '0.34.2';
+requires 'Locale::CLDR::Locales::Ru', '0.34.2';
+requires 'Locale::CLDR::Locales::Sv', '0.34.2';
+requires 'Locale::CLDR::Locales::Tr', '0.34.2';
+requires 'Locale::CLDR::Locales::Uk', '0.34.2';
+requires 'Locale::CLDR::Locales::Zh', '0.34.2';
 requires 'Locale::Maketext::Lexicon', '0.62';
 requires 'Locales';
 requires 'Log::Any';

diff --git a/lib/LedgerSMB.pm b/lib/LedgerSMB.pm
@@ -233,8 +233,6 @@ use List::Util qw( pairgrep );
 use Locale::CLDR;
 use Locales unicode => 1;
 use Log::Any;
-use Math::BigFloat;
-use Math::BigInt;
 use PGObject;
 use Plack;
 use URI;
@@ -627,8 +625,6 @@ sub enabled_languages {
 sub enabled_countries {
     my ($self) = @_;
 
-    local $Math::BigInt::upgrade = undef;
-    local $Math::BigFloat::downgrade = undef;
     my $regions = Locale::CLDR->new($self->{_user}->{language})->all_regions;
     return [
         map {

diff --git a/lib/LedgerSMB/Database/Config.pm b/lib/LedgerSMB/Database/Config.pm
@@ -19,8 +19,6 @@ use namespace::autoclean;
 use File::Find::Rule;
 use File::Spec;
 use Locale::CLDR;
-use Math::BigFloat;
-use Math::BigInt;
 
 =head1 SYNOPSIS
 
@@ -127,12 +125,8 @@ sub charts_of_accounts {
     ###TODO: Define a parameter to the SQL directory!!
     my $basedir = File::Spec->catfile('.', 'locale', 'coa');
     my $countries = _list_directory($basedir);
-    my $cldr = do {
-        local $Math::BigInt::upgrade = undef;
-        local $Math::BigFloat::downgrade = undef;
-        Locale::CLDR->new($self->language);
-    };
-    my %regions = %{$cldr->all_regions};
+    my %regions = %{Locale::CLDR->new($self->language)
+                        ->all_regions};
 
     return {
         map {

diff --git a/lib/LedgerSMB/I18N.pm b/lib/LedgerSMB/I18N.pm
@@ -21,8 +21,6 @@ we look only to the current locale.
 
 use Locale::CLDR;
 use Locales unicode => 1;
-use Math::BigFloat;
-use Math::BigInt;
 use Moose::Role;
 use namespace::autoclean;
 use LedgerSMB::App_State;
@@ -129,11 +127,7 @@ Get a country localized list to allow user selection
 
 sub get_country_list {
     my $language = shift;
-    my %regions = do {
-        local $Math::BigInt::upgrade = undef;
-        local $Math::BigFloat::downgrade = undef;
-        Locale::CLDR->new($language)->all_regions->%*
-    };
+    my %regions = Locale::CLDR->new($language)->all_regions->%*;
     return [
         sort { $a->{text} cmp $b->{text} }
         map { +{ value => uc($_),

diff --git a/lib/LedgerSMB/Scripts/user.pm b/lib/LedgerSMB/Scripts/user.pm
@@ -30,8 +30,6 @@ use feature 'fc';
 
 use DateTime::Format::Duration::ISO8601;
 use Locale::CLDR;
-use Math::BigFloat;
-use Math::BigInt;
 
 use LedgerSMB::Locale;
 use LedgerSMB::User;
@@ -134,11 +132,7 @@ sub preference_screen {
                 dateformats      => $dateformats,
                 language_codes   => _language_options(
                     $request,
-                    do {
-                        local $Math::BigInt::upgrade = undef;
-                        local $Math::BigFloat::downgrade = undef;
-                        Locale::CLDR->new( $prefs->{language} );
-                    }),
+                    Locale::CLDR->new( $prefs->{language} )),
                 login            => $login,
                 numberformats    => $numberformats,
                 password_expires => {