From 4a10f63f1f161af77762eeeab60ad4b145a17b29 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 11 Aug 2009 15:53:34 +0000
Subject: (install) prevent urpmi messages from garbaging text installer
 (#50776)

(needs urpmi > 6.26.1)
---
 perl-install/install/NEWS    | 1 +
 perl-install/install/pkgs.pm | 4 ++++
 2 files changed, 5 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 17fc64d56..1d916f5bb 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,6 @@
 - fix parsing dmidecode output (broken since we use dmidecode-2.10,
   aka since November 24 2008)
+- prevent urpmi messages from garbaging text installer (#50776)
 - locales
   o add "English (South Africa)" (#51057)
   o fix sorting South Africa languages (#51055)
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 4d72a761e..39dc0cc7c 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -684,6 +684,10 @@ sub install {
     URPM::add_macro(join(' ', '__dbi_cdb', URPM::expand('%__dbi_cdb'), 'nofsync'));
     my $LOG = _openInstallLog();
 
+    $packages->{log} = $packages->{info} = $packages->{print} = sub {
+        print $LOG "$_[0]\n";
+    };
+
     #- do not modify/translate the message used with installCallback since
     #- these are keys during progressing installation, or change in other
     #- place (install::steps_gtk.pm,...).
-- 
cgit v1.2.1