diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-01-25 10:39:46 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-01-25 10:39:46 +0000 |
| commit | df5631d587066b6c768d3eb4466be9374f3f7cc1 (patch) | |
| tree | 9be1ddc46dfd1969e01d8ec579b8cedc4bce7103 /perl-install | |
| parent | e06775888d1d868b6d8fea170939adb05b4692a7 (diff) | |
| download | drakx-df5631d587066b6c768d3eb4466be9374f3f7cc1.tar drakx-df5631d587066b6c768d3eb4466be9374f3f7cc1.tar.gz drakx-df5631d587066b6c768d3eb4466be9374f3f7cc1.tar.bz2 drakx-df5631d587066b6c768d3eb4466be9374f3f7cc1.tar.xz drakx-df5631d587066b6c768d3eb4466be9374f3f7cc1.zip | |
fixed try opening to trigger changeCD callback.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 1fca48c33..8c2f24865 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -1359,12 +1359,18 @@ sub install($$$;$$) { if ($media->{$medium}{method} eq 'cdrom') { #- extract packages to make sure the getFile below to force #- accessing medium will not be redirected to updates. - my @origin = grep { $_->[$MEDIUM] == $media->{$medium} } @transToInstall; + my @origin = grep { $_->[$MEDIUM] == $medium } @transToInstall; - #- reset file descriptor open for main process but - #- make sure error trying to change from hdlist are - #- trown from main process too. - @origin and install_any::getFile(packageFile($origin[0]), $media->{$origin[0][$MEDIUM]}{descr}); + if (@origin) { + #- reset file descriptor open for main process but + #- make sure error trying to change from hdlist are + #- trown from main process too. + install_any::getFile(packageFile($origin[0]), $media->{$origin[0][$MEDIUM]}{descr}); + + #- allow some log here to check selected status. + log::l("status for medium $origin[0][$MEDIUM] ($media->{$origin[0][$MEDIUM]}{descr}) is " . + ($media->{$origin[0][$MEDIUM]}{selected} ? "selected" : "refused")); + } } #- and make sure there are no staling open file descriptor too (before forking)! install_any::getFile('XXX'); |