From f43ea7435264d69adddaf7cfbf42bc20dddb022e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 3 Mar 2009 14:06:10 +0000
Subject: (_install_raw) directly use $::o

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

(limited to 'perl-install/install/pkgs.pm')

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index e5a6af107..e504f37be 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -773,11 +773,11 @@ sub _install_raw {
         },
         message => sub {
             my ($title, $message) = @_;
-            $o->in and $o->in->ask_warn($title, $message);
+            $::o->ask_warn($title, $message);
         },
         ask_yes_or_no => sub {
             my ($title, $msg) = @_;
-            $o->in and $o->in->ask_yesorno($title, $msg);
+            $::o->ask_yesorno($title, $msg);
         },
         # Uneeded callbacks: success_summary
     });
-- 
cgit v1.2.1