From 9f87ea734b52d737a18dda394afc5f4493bf6a40 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 14 Sep 2007 15:56:16 +0000 Subject: advertising: drop support for .pl files, only {title} was still supported, and it's unused --- perl-install/install/any.pm | 2 -- 1 file changed, 2 deletions(-) (limited to 'perl-install/install/any.pm') 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; } -- cgit v1.2.1