Revert "Work around Locale::CLDR::Locales::* loading 'bignum'"

This reverts commit ed43b77. Starting 0.34.2, Locale::CLDR stopped loading bignum, using bigfloat instead.
ledgersmb · Oct 22, 2023 · b71a1cb · b71a1cb
1 parent 2d6317a
commit b71a1cb
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 26 deletions.
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 => {