summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-09-15 11:45:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-09-15 11:45:50 +0000
commite5c974810a664330fb070325337cd21dd148b697 (patch)
tree2b7d547a543d3a3344f50c3efc97278c7138af90 /perl-install/install_any.pm
parent8b606ca75db47a948c183893889b2803217062d3 (diff)
downloaddrakx-e5c974810a664330fb070325337cd21dd148b697.tar
drakx-e5c974810a664330fb070325337cd21dd148b697.tar.gz
drakx-e5c974810a664330fb070325337cd21dd148b697.tar.bz2
drakx-e5c974810a664330fb070325337cd21dd148b697.tar.xz
drakx-e5c974810a664330fb070325337cd21dd148b697.zip
- there is no more adverstising icon
- cleaning
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm7
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 0350a827d..890e6b4c3 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1897,11 +1897,8 @@ sub copy_advertising {
foreach (@files) {
chomp;
getAndSaveFile("$source_dir/$_", "$dir/$_");
- s/\.png/.pl/;
- getAndSaveFile("$source_dir/$_", "$dir/$_");
- s/\.pl/_icon.png/;
- getAndSaveFile("$source_dir/$_", "$dir/$_");
- s/_icon\.png/.png/;
+ (my $pl = $_) =~ s/\.png/.pl/;
+ getAndSaveFile("$source_dir/$pl", "$dir/$pl");
}
@advertising_images = map { "$dir/$_" } @files;
}