diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/service_harddrake | 10 |
2 files changed, 12 insertions, 0 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 4ceaaaba6..77d80b645 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,5 @@ +- harddrake: + o fix translating reasons for 2nd stage warning - localedrake: o fix listing locales only providing UTF8 metadata (#59634, Herton Ronaldo Krzesinski) diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake index 761ea8a46..61dabe2af 100755 --- a/perl-install/standalone/service_harddrake +++ b/perl-install/standalone/service_harddrake @@ -7,6 +7,14 @@ BEGIN { $ENV{DISABLE_DRAKBUG} = 1 } use strict; use diagnostics; + +# fix translating reasons for 2nd stage warning +use lang; +BEGIN { + my $locale = lang::read($>); + lang::set($locale); +} + use standalone; #- warning, standalone must be loaded very first, for 'explanations' use c; use common; @@ -63,6 +71,8 @@ if (!member($curr_kernel, chomp_(cat_($known_kernels)))) { harddrake::autoconf::fix_aliases($modules_conf) if !$first_run; append_to_file($known_kernels, "$curr_kernel\n"); } +use Data::Dumper; +output('/tmp/env.pl', Dumper(\%ENV)); sub get_xorg_driver() { |