summaryrefslogtreecommitdiffstats
path: root/perl-install/install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-09-17 09:28:00 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-09-17 09:28:00 +0000
commit755df002ff6e794dd19bbb5d32906bc4305a8c21 (patch)
tree6445bc65dac7e0ead5c4d6b6c4a9fc5fb8a7d5e4 /perl-install/install/any.pm
parent02d308c52735fdfa9c03563147be562febfc1a3c (diff)
downloaddrakx-755df002ff6e794dd19bbb5d32906bc4305a8c21.tar
drakx-755df002ff6e794dd19bbb5d32906bc4305a8c21.tar.gz
drakx-755df002ff6e794dd19bbb5d32906bc4305a8c21.tar.bz2
drakx-755df002ff6e794dd19bbb5d32906bc4305a8c21.tar.xz
drakx-755df002ff6e794dd19bbb5d32906bc4305a8c21.zip
- advertising: restore support for $title in .pl files (wrongly dropped in 10.4.195)
Diffstat (limited to 'perl-install/install/any.pm')
-rw-r--r--perl-install/install/any.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 82d7048a5..15e58d428 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -1293,6 +1293,8 @@ 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;
}