From 755df002ff6e794dd19bbb5d32906bc4305a8c21 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 17 Sep 2007 09:28:00 +0000
Subject: - advertising: restore support for $title in .pl files (wrongly
 dropped in 10.4.195)

---
 perl-install/install/any.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/install/any.pm')

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;
     }
-- 
cgit v1.2.1