summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-02-20 17:49:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-02-20 17:49:50 +0000
commit218caed4bceb0522f8f72790af103b7319c33e8a (patch)
tree1929e0cf2b71586c2c6371f718b2be0e5f27f307 /perl-install/install_any.pm
parentd2671c4d2795f249da912a1e7998e33011aaf3e3 (diff)
downloaddrakx-backup-do-not-use-218caed4bceb0522f8f72790af103b7319c33e8a.tar
drakx-backup-do-not-use-218caed4bceb0522f8f72790af103b7319c33e8a.tar.gz
drakx-backup-do-not-use-218caed4bceb0522f8f72790af103b7319c33e8a.tar.bz2
drakx-backup-do-not-use-218caed4bceb0522f8f72790af103b7319c33e8a.tar.xz
drakx-backup-do-not-use-218caed4bceb0522f8f72790af103b7319c33e8a.zip
better advertising support
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 40929ece8..b6f429763 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -91,7 +91,9 @@ sub errorOpeningFile($) {
while ($max > 0 && askChangeMedium($::o->{method}, $asked_medium)) {
$current_medium = $asked_medium;
eval { fs::mount($cdrom, "/tmp/image", "iso9660", 'readonly') };
- my $getFile = getFile($file); $getFile and return $getFile;
+ my $getFile = getFile($file);
+ $getFile and $::o->copy_advertising;
+ $getFile and return $getFile;
$current_medium = 'unknown'; #- don't know what CD is inserted now.
ejectCdrom($cdrom);
--$max;