diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/any.pm | 2 | ||||
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 8 |
2 files changed, 0 insertions, 10 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 15e58d428..82d7048a5 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -1293,8 +1293,6 @@ sub copy_advertising { foreach (@files) { chomp; install::media::getAndSaveFile_($o->{stage2_phys_medium}, "$source_dir/$_", "$dir/$_"); - (my $pl = $_) =~ s/\.png/.pl/; - install::media::getAndSaveFile_($o->{stage2_phys_medium}, "$source_dir/$pl", "$dir/$pl"); } @advertising_images = map { "$dir/$_" } @files; } diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index dd3a96d8d..3501b7f73 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -484,14 +484,6 @@ sub installPackages { my $f = $install::any::advertising_images[$i++ % @install::any::advertising_images]; log::l("advertising $f"); gtkval_modify(\$advertising_image, $f); - - if (my $banner = $w->{window}{banner}) { - my ($title); - my $pl = $f; $pl =~ s/\.png$/.pl/; - eval(cat_($pl)) if -e $pl; - $banner->{text} = $title; - Gtk2::Banner::set_pixmap($banner); - } }; my $cancel = gtknew('Button', text => N("Cancel"), clicked => sub { $install::pkgs::cancel_install = 1 }); |