summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-04-20 15:30:12 +0000
committerThierry Vignaud <tv@mandriva.org>2009-04-20 15:30:12 +0000
commit0756f81db4bc8da0f5d5fd149d448a95e43535bf (patch)
tree43c6fb7b8beab65d051cdaf2646c978edcfbd0ae /perl-install/any.pm
parent8f94b7e16e1d446c849e268dcf42bb1c93fa8c32 (diff)
downloaddrakx-0756f81db4bc8da0f5d5fd149d448a95e43535bf.tar
drakx-0756f81db4bc8da0f5d5fd149d448a95e43535bf.tar.gz
drakx-0756f81db4bc8da0f5d5fd149d448a95e43535bf.tar.bz2
drakx-0756f81db4bc8da0f5d5fd149d448a95e43535bf.tar.xz
drakx-0756f81db4bc8da0f5d5fd149d448a95e43535bf.zip
(_install_raw,monitor_full_edid) do not log perl warnings about
missing/not-yet-installed locales while installing and while probing EDID
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm10
1 files changed, 7 insertions, 3 deletions
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) = @$_;