diff options
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 1d7b8730f..c15aafdae 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -85,7 +85,8 @@ sub translate { my ($s) = @_; unless (defined %po::I18N::I18N) { if (my ($lang) = ($ENV{LC_ALL} || $ENV{LANGUAGE} || $ENV{LC_MESSAGES} || $ENV{LANG}) =~ /(..)/) { - eval { require "po/$lang.pm" }; $@ and warn "no translation in $lang available\n"; + local $SIG{__DIE__} = 'none'; + eval { require "po/$lang.pm" }; } } $po::I18N::I18N{$s} || $s; |