From df5631d587066b6c768d3eb4466be9374f3f7cc1 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 25 Jan 2002 10:39:46 +0000 Subject: fixed try opening to trigger changeCD callback. --- perl-install/pkgs.pm | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) (limited to 'perl-install') 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'); -- cgit v1.2.1