diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-04-27 12:52:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-04-27 12:52:01 +0000 |
| commit | 3f0bc7b1d5ea11fadd21380a4aa42eded7b1499f (patch) | |
| tree | 138879e3b123b2e165c859a20c11e72bdfe29463 /perl-install/install/pkgs.pm | |
| parent | 64ae5b39f1c3adfabbc7022a1b14ec077140cb77 (diff) | |
| download | drakx-3f0bc7b1d5ea11fadd21380a4aa42eded7b1499f.tar drakx-3f0bc7b1d5ea11fadd21380a4aa42eded7b1499f.tar.gz drakx-3f0bc7b1d5ea11fadd21380a4aa42eded7b1499f.tar.bz2 drakx-3f0bc7b1d5ea11fadd21380a4aa42eded7b1499f.tar.xz drakx-3f0bc7b1d5ea11fadd21380a4aa42eded7b1499f.zip | |
- allow umounting cdrom during a transaction
Diffstat (limited to 'perl-install/install/pkgs.pm')
| -rw-r--r-- | perl-install/install/pkgs.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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 { |