From f18bc044d8e533cd07956df2e5030c2d3c8d3d93 Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Mon, 1 Sep 2014 22:38:40 +0200 Subject: perl 5.20.0 does not like that an external lib set locales --- lib/AdminPanel/Shared/Locales.pm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lib/AdminPanel/Shared/Locales.pm b/lib/AdminPanel/Shared/Locales.pm index 4bb1474..2015a48 100644 --- a/lib/AdminPanel/Shared/Locales.pm +++ b/lib/AdminPanel/Shared/Locales.pm @@ -120,6 +120,11 @@ has 'domain' => ( sub BUILD { my $self = shift; + if ($^V ge v5.20.0) { + require POSIX; + POSIX::setlocale (POSIX::LC_ALL (), ''); + } + $self->domain(Locale::gettext->domain_raw($self->domain_name)); $self->domain->dir($self->dir_name) if $self->dir_name; $self->domain->codeset($self->codeset) -- cgit v1.2.1