summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/pkgs.pm')
-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');