summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-01-25 10:39:46 +0000
committerFrancois Pons <fpons@mandriva.com>2002-01-25 10:39:46 +0000
commitdf5631d587066b6c768d3eb4466be9374f3f7cc1 (patch)
tree9be1ddc46dfd1969e01d8ec579b8cedc4bce7103 /perl-install
parente06775888d1d868b6d8fea170939adb05b4692a7 (diff)
downloaddrakx-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.pm16
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');