summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index b07038609..fce228234 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -788,14 +788,18 @@ sub copy_advertising {
return if $::rootwidth < 800;
- my $f = getFile('Mandrake/share/advertising/list');
+ my $source_dir = "Mandrake/share/advertising";
+ foreach ("." . $o->{lang}, "." . substr($o->{lang},0,2), '') {
+ $f = getFile("$source_dir$_/list") or next;
+ $source_dir = "$source_dir$_";
+ }
if (my @files = <$f>) {
my $dir = "$o->{prefix}/tmp/drakx-images";
mkdir $dir;
unlink glob_("$dir/*");
foreach (@files) {
chomp;
- getAndSaveFile("Mandrake/share/advertising/$_", "$dir/$_");
+ getAndSaveFile("$source_dir/$_", "$dir/$_");
}
@advertising_images = map { "$dir/$_" } @files;
}