(_install_raw,monitor_full_edid) do not log perl warnings about

missing/not-yet-installed locales while installing and while probing EDID
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 8ee681d62..2ae4c4ebe 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -473,7 +473,7 @@ killall pppd
                     name => N("Dialup: IP parameters"),
                     data => sub {
                         [
-                         { label => N("IP address"), type => "list", val => \$modem->{auto_ip}, list => [ N("Automatic"), N("Manual") ] },
+                         { label => N("IP parameters"), type => "list", val => \$modem->{auto_ip}, list => [ N("Automatic"), N("Manual") ] },
                          { label => N("IP address"), val => \$modem->{IPAddr}, disabled => $modem_dyn_ip },
                          { label => N("Subnet mask"), val => \$modem->{SubnetMask}, disabled => $modem_dyn_ip },
                         ];
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 634dbf9f4..472db55c7 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1294,9 +1294,13 @@ sub monitor_full_edid() {
 
     devices::make('zero');
     my ($vbe, $edid);
-    run_program::raw({ timeout => 20 }, 
-		     'monitor-edid', '>', \$edid, '2>', \$vbe, 
-		     '-v', '--perl', if_($::isStandalone, '--try-in-console'));
+    {
+        # prevent warnings in install's logs:
+        local $ENV{LC_ALL} = 'C';
+        run_program::raw({ timeout => 20 }, 
+                         'monitor-edid', '>', \$edid, '2>', \$vbe, 
+                         '-v', '--perl', if_($::isStandalone, '--try-in-console'));
+    }
     if ($::isInstall) {
 	foreach (['edid', \$edid], ['vbe', \$vbe]) {
 	    my ($name, $val) = @$_;
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index b327194f4..8ef7f7eaa 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- do not log perl warnings about missing/not-yet-installed locales
+  while installing and while probing EDID
+
 Version 12.28.1 - 16 April 2009
 
 - diskdrake:
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index c933cfd56..74b585210 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -728,6 +728,9 @@ sub is_package_installed {
 sub _install_raw {
     my ($packages, $isUpgrade, $callback, $LOG, $noscripts) = @_;
 
+    # prevent warnings in install's logs:
+    local $ENV{LC_ALL} = 'C';
+
     # let's be urpmi's compatible:
     local $packages->{options}{noscripts} = $noscripts;
     # leaks a fd per transaction (around ~100 for a typically gnome install, see #49097):