summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-22 14:35:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-22 14:35:49 +0000
commit1c0a5f5d51970e0eecfe34e1c7f8ede8bd886f29 (patch)
treec55f4ce132970f777c9b7c2e66b945a4f3375242 /perl-install/install_steps_gtk.pm
parent03e50185813be19885ba0d1da6c486348c8c457f (diff)
downloaddrakx-backup-do-not-use-1c0a5f5d51970e0eecfe34e1c7f8ede8bd886f29.tar
drakx-backup-do-not-use-1c0a5f5d51970e0eecfe34e1c7f8ede8bd886f29.tar.gz
drakx-backup-do-not-use-1c0a5f5d51970e0eecfe34e1c7f8ede8bd886f29.tar.bz2
drakx-backup-do-not-use-1c0a5f5d51970e0eecfe34e1c7f8ede8bd886f29.tar.xz
drakx-backup-do-not-use-1c0a5f5d51970e0eecfe34e1c7f8ede8bd886f29.zip
function $advertize must work when chrooted or not, we can't really know if we're chrooted or not
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 46ac85247..fc43cee55 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -439,7 +439,7 @@ sub installPackages {
ugtk2::gtkadd($w->{window}, my $box = gtknew('VBox', spacing => 10));
my $advertize = sub {
- my ($update, $o_chroot_dir) = @_;
+ my ($update) = @_;
@install_any::advertising_images or return;
foreach ($msg, $progress, $text) {
$show_advertising ? $_->hide : $_->show;
@@ -449,7 +449,7 @@ sub installPackages {
if ($show_advertising && $update) {
$change_time = time();
my $f = $install_any::advertising_images[$i++ % @install_any::advertising_images];
- $f =~ s/\Q$o_chroot_dir// if $o_chroot_dir;
+ $f =~ s/\Q$::prefix// if ! -f $f;
log::l("advertising $f");
my $pl = $f; $pl =~ s/\.png$/.pl/;
my $icon_name = $f; $icon_name =~ s/\.png$/_icon.png/;
@@ -523,7 +523,7 @@ sub installPackages {
$current_total_size += $last_size;
$last_size = $p->size;
gtkset($text, text => (split /\n/, c::from_utf8($p->summary))[0] || '');
- $advertize->(1, $::prefix) if $show_advertising && $total_size > 20_000_000 && time() - $change_time > 20;
+ $advertize->(1) if $show_advertising && $total_size > 20_000_000 && time() - $change_time > 20;
$w->flush;
} elsif ($type eq 'inst' && $subtype eq 'progress') {
$progress->set_fraction($total ? $amount / $total : 0);