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) = @_;