From 3f0bc7b1d5ea11fadd21380a4aa42eded7b1499f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 27 Apr 2007 12:52:01 +0000
Subject: - allow umounting cdrom during a transaction

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

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

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index f0a82862d..a367f89b5 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -872,6 +872,7 @@ sub _install_raw {
 				my $medium = packageMedium($packages, $pkg);
 				my $f = $pkg && install::media::rel_rpm_file($medium, $pkg->filename);
 				print $LOG "$f\n";
+				undef $fd;
 				$fd = getFile_($medium->{phys_medium}, $f);
 				$fd ? fileno $fd : -1;
 			    }, callback_close => sub {
-- 
cgit v1.2.1