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/Makefile | 2 +- perl-install/install_steps_gtk.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/Makefile b/perl-install/Makefile index 84f41baa6..dd6b426b9 100644 --- a/perl-install/Makefile +++ b/perl-install/Makefile @@ -25,7 +25,7 @@ $(DIRS): $(MAKE) -C $@ test_pms: verify_c - for i in install2 standalone/keyboarddrake standalone/XFdrake standalone/drakboot; do perl_checker -I. -no_cw -excludec -excluderesize_fat::c_rewritten $$i; done + for i in install2 install_steps_*.pm standalone/keyboarddrake standalone/XFdrake standalone/drakboot; do perl_checker -I. -no_cw -excludec -excluderesize_fat::c_rewritten $$i; done for i in install2 install_steps_*.pm; do perl -cw -I. $$i; done verify_c: 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