From 35070d3cb29bd477e9ab6d3b57e66f0e50309e09 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Sat, 5 Jun 2010 16:43:09 +0000
Subject: fix translating reasons for 2nd stage warning when we change the
 driver (warning: needs further fix in notify-x11-free-driver-switch for UTF-8
 encoding of the cat_()ed message)

---
 perl-install/NEWS                         |  2 ++
 perl-install/standalone/service_harddrake | 10 ++++++++++
 2 files changed, 12 insertions(+)

(limited to 'perl-install')

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() {
-- 
cgit v1.2.1