diff options
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/pkgs.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 1842f68db..734a321e2 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -1109,12 +1109,12 @@ sub install($$$;$$) { my $medium = packageMedium($packages, $pkg); my $f = $pkg && $pkg->filename; print $LOG "$f\n"; - if (isSupplCDMedium($medium)) { - #- supplementary CD already mounted in /mnt/cdrom - $fd = install_any::getFile($f, $medium->{descr}, '/mnt/cdrom'); - } else { - $fd = install_any::getFile($f, $medium->{descr}); - } + #if (isSupplCDMedium($medium)) { + # #- supplementary CD already mounted in /mnt/cdrom + # $fd = install_any::getFile($f, $medium->{descr}, '/mnt/cdrom'); + #} else { + $fd = install_any::getFile($f, $medium->{descr}); + #} $fd ? fileno $fd : -1; }, callback_close => sub { my ($data, $_type, $id) = @_; |