summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-08 18:09:37 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-08 18:09:37 +0000
commitbb6d891b8c6c6db0bf8b20eb6dc2f8ded6e519e6 (patch)
treefac0248ee3dcff9ea2b531578ef4f14077c4c827 /perl-install/install_any.pm
parentb8cb3272f5a12c46087c52d3cef120b46cb2d0ea (diff)
downloaddrakx-bb6d891b8c6c6db0bf8b20eb6dc2f8ded6e519e6.tar
drakx-bb6d891b8c6c6db0bf8b20eb6dc2f8ded6e519e6.tar.gz
drakx-bb6d891b8c6c6db0bf8b20eb6dc2f8ded6e519e6.tar.bz2
drakx-bb6d891b8c6c6db0bf8b20eb6dc2f8ded6e519e6.tar.xz
drakx-bb6d891b8c6c6db0bf8b20eb6dc2f8ded6e519e6.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index ed87b688a..2326edaa1 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -334,10 +334,14 @@ sub killCardServices {
$pid and kill(15, $pid); #- send SIGTERM
}
-sub unlockCdroms {
+sub unlockCdroms() {
ioctl detect_devices::tryOpen($_->{device}), c::CDROM_LOCKDOOR(), 0
foreach detect_devices::cdroms();
}
+sub ejectCdrom() {
+ ioctl detect_devices::tryOpen($_), c::CDROMEJECT(), 1
+ foreach map { first split } grep { m|/tmp/rhimage| } cat_("/proc/mounts");
+}
sub setupFB {
my ($o, $vga) = @_;