From 20be3954bcf24d261a7b984beadb30fc7a574322 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 11 Mar 2005 14:56:38 +0000
Subject: Eject last CD after copy of rpms on disk

---
 perl-install/install_any.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/install_any.pm')

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
-- 
cgit v1.2.1