From b60c0cb8f67d745626fec6f0c8540818f24e91a6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 24 Jul 2001 22:39:28 +0000
Subject: move to MDK::Common, bool->to_bool

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

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

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index ca455247a..8843f18b6 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -11,7 +11,7 @@ use vars qw(@ISA);
 #-######################################################################################
 use install_steps_interactive;
 use interactive_gtk;
-use common qw(:common :file :functional :system);
+use common;
 use my_gtk qw(:helpers :wrappers);
 use Gtk;
 use devices;
@@ -626,7 +626,7 @@ _("There was an error installing packages:"), $1, _("Go on anyway?") ], 1) and r
 sub set_help {
     my ($o, @l) = @_;
 
-    $o->{current_help} = formatAlaTeX(join "\n", map { _ deref($help::steps{$_}) } @l);
+    $o->{current_help} = formatAlaTeX(join "\n", map { _(deref($help::steps{$_})) } @l);
     gtktext_insert($o->{help_window_text}, $o->{current_help});
     1;
 }
-- 
cgit v1.2.1