summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-11 14:56:38 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-11 14:56:38 +0000
commit20be3954bcf24d261a7b984beadb30fc7a574322 (patch)
treedc99dfe938f4f585ec6529527bde385744ff3d99 /perl-install
parent26c107ea2449159d6ca30d3d03d7d91a59480d4e (diff)
downloaddrakx-20be3954bcf24d261a7b984beadb30fc7a574322.tar
drakx-20be3954bcf24d261a7b984beadb30fc7a574322.tar.gz
drakx-20be3954bcf24d261a7b984beadb30fc7a574322.tar.bz2
drakx-20be3954bcf24d261a7b984beadb30fc7a574322.tar.xz
drakx-20be3954bcf24d261a7b984beadb30fc7a574322.zip
Eject last CD after copy of rpms on disk
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 247f89aa8..79acf0d59 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -695,6 +695,7 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.",
$m->{with_hdlist} = 'media_info/hdlist.cz'; #- for install_urpmi
}
kill 15, $pid if defined $pid;
+ ejectCdrom() if $o->{method} eq "cdrom";
#- now the install will continue as 'disk'
$o->{method} = 'disk';
#- shoud be enough to fool errorOpeningFile