From b71a1cbd328737fe0d87e6fdd6ba6e024a0e40b2 Mon Sep 17 00:00:00 2001
From: Erik Huelsmann <ehuels@gmail.com>
Date: Sun, 22 Oct 2023 10:28:57 +0200
Subject: [PATCH] Revert "Work around Locale::CLDR::Locales::* loading
 'bignum'"

This reverts commit ed43b77ba9219bd7f6bdd96c78d0dfc88a33ddf5.

Starting 0.34.2, Locale::CLDR stopped loading bignum, using bigfloat instead.
---
 lib/LedgerSMB.pm                 |  4 ----
 lib/LedgerSMB/Database/Config.pm | 10 ++--------
 lib/LedgerSMB/I18N.pm            |  8 +-------
 lib/LedgerSMB/Scripts/user.pm    |  8 +-------
 4 files changed, 4 insertions(+), 26 deletions(-)

diff --git a/lib/LedgerSMB.pm b/lib/LedgerSMB.pm
index fe3fcf9321..4f660d1fe7 100644
--- 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
index 479c26698d..1643b749c2 100644
--- 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
index 84f1305a68..54869a8e9d 100644
--- 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
index 54af4d0659..dc7b80c1bf 100644
--- 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 => {