From f3d0f7b02f75ba0bcd400472d151e6de0005cdcc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 3 Mar 2009 14:01:44 +0000
Subject: (_install_raw) do not initialize new auto interactives objects

---
 perl-install/install/pkgs.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 8424f4721..e5a6af107 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -758,7 +758,7 @@ sub _install_raw {
         bad_signature => sub {
             my ($msg, $msg2) = @_;
             $msg =~ s/:$/\n\n/m; # FIXME: to be fixed in urpmi after 2008.0 (sic!)
-            interactive->vnew->ask_yesorno(N("Warning"), "$msg\n\n$msg2");
+            $::o->ask_yesorno(N("Warning"), "$msg\n\n$msg2");
         },
         ask_retry => sub {
         },
@@ -773,11 +773,11 @@ sub _install_raw {
         },
         message => sub {
             my ($title, $message) = @_;
-            interactive->vnew->ask_warn($title, $message);
+            $o->in and $o->in->ask_warn($title, $message);
         },
         ask_yes_or_no => sub {
             my ($title, $msg) = @_;
-            interactive->vnew->ask_yesorno($title, $msg);
+            $o->in and $o->in->ask_yesorno($title, $msg);
         },
         # Uneeded callbacks: success_summary
     });
-- 
cgit v1.2.1