diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-08 18:09:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-08 18:09:37 +0000 |
| commit | bb6d891b8c6c6db0bf8b20eb6dc2f8ded6e519e6 (patch) | |
| tree | fac0248ee3dcff9ea2b531578ef4f14077c4c827 /perl-install/install_any.pm | |
| parent | b8cb3272f5a12c46087c52d3cef120b46cb2d0ea (diff) | |
| download | drakx-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.pm | 6 |
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) = @_; |