From e5c974810a664330fb070325337cd21dd148b697 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 15 Sep 2005 11:45:50 +0000 Subject: - there is no more adverstising icon - cleaning --- perl-install/install_any.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'perl-install') 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; } -- cgit v1.2.1