diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2009-04-20 15:30:12 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2009-04-20 15:30:12 +0000 |
| commit | 0756f81db4bc8da0f5d5fd149d448a95e43535bf (patch) | |
| tree | 43c6fb7b8beab65d051cdaf2646c978edcfbd0ae /perl-install | |
| parent | 8f94b7e16e1d446c849e268dcf42bb1c93fa8c32 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/any.pm | 10 | ||||
| -rw-r--r-- | perl-install/install/NEWS | 3 | ||||
| -rw-r--r-- | perl-install/install/pkgs.pm | 3 |
3 files changed, 13 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) = @$_; 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): |