From 391e4f3693e6bdaaf571cb4899c92331fba35015 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 24 Jul 2001 22:45:01 +0000 Subject: move to MDK::Common, bool->to_bool --- perl-install/install_steps_gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (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 8843f18b6..e0d90e7d9 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -473,7 +473,7 @@ sub installPackages { $w->sync; my $text = new Gtk::Label; my ($advertising, $change_time, $i); - my $show_advertising = bool(@install_any::advertising_images); + my $show_advertising = to_bool(@install_any::advertising_images); my ($msg, $msg_time_remaining, $msg_time_total) = map { new Gtk::Label($_) } '', (_("Estimating")) x 2; my ($progress, $progress_total) = map { new Gtk::ProgressBar } (1..2); $w->{rwindow}->set_policy(1, 1, 1); -- cgit v1.2.1