don't unmount cdrom before some potential accesses will be done

for actually installing packages :)

1 files changed, 2 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index f2f6a5d3..13eadd1e 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -951,7 +951,6 @@ sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
 							  interactive_msg_(N("Change medium"),
 									   N("Please insert the medium named \"%s\" on device [%s]", @_),
 									   yesno => 1, text => { yes => N("Ok"), no => N("Cancel") }) });
-	$urpm->try_umounting_removables;
 	my @rpms_install = grep { !/\.src\.rpm$/ } values %{$urpm->extract_packages_to_install(\%sources) || {}};
 	my @rpms_upgrade = grep { !/\.src\.rpm$/ } values %sources;
 
@@ -976,6 +975,7 @@ sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
 		  or print(STDERR "   *** ERROR *** Could not exec $grpmi.\n"), c::_exit(-1);
 	    }
 	    my $exitstatus = $?;
+	    $urpm->try_umounting_removables;
 	    my %pkg2rpmnew;
 	    foreach my $u (@rpms_upgrade) {
 		$u =~ m|/([^/]+-[^-]+-[^-]+)\.[^\./]+\.rpm$|
@@ -990,6 +990,7 @@ sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
 						   N("All requested packages were installed successfully."));
 	    die "return $exitstatus\n";
 	} else {
+	    $urpm->try_umounting_removables;
 	    interactive_msg_(N("Everything already installed."),
 			     N("Everything already installed (is this supposed to happen at all?)."));
 	}