summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/pkgs.pm1
2 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index ed4e7c23f..be96e2c54 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- allow umounting cdrom during a transaction
- really allow having name with "/" in media.cfg
Version 10.4.129 - 4 April 2007, by Pascal "Pixel" Rigaux
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 {