summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Makefile2
-rw-r--r--perl-install/install_steps_gtk.pm2
2 files changed, 2 insertions, 2 deletions
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);