From 154c77067e7f4962c77c6ae4811bb78933d00afa Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 13 Apr 2001 15:07:16 +0000 Subject: avoid illegal modulus zero if no advertizing is available. --- perl-install/install_steps_gtk.pm | 1 + 1 file changed, 1 insertion(+) (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 c62145598..150c444d0 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -582,6 +582,7 @@ sub installPackages { gtkset_mousecursor_normal($cancel->window); my $advertize = sub { + @install_any::advertising_images or return; $show_advertising ? $_->hide : $_->show foreach $msg, $progress, $text; gtkdestroy($advertising) if $advertising; if ($show_advertising && $_[0]) { -- cgit v1.2.1