From 9e0a01e8126a895fdc91433494b97d6add4f2b8c Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 17 Aug 2004 02:52:00 +0000 Subject: Supplementary cd-roms don't need to have a rpmsrate / compssUsers.pl --- perl-install/install_any.pm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 7de75d3f8..b6b522bc6 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -489,15 +489,18 @@ sub setPackages { pkgs::packageByName($o->{packages}, 'basesystem') || die("missing basesystem package"), 1); #- must be done after getProvides - #- if there is a supplementary CD, override the rpmsrate/compssUsers - #- FIXME make this overriding optional + #- if there is a supplementary CD, the rpmsrate/compssUsers are overridable pkgs::read_rpmsrate( $o->{packages}, - getFile($suppl_method eq 'cdrom' ? "/mnt/cdrom/media/media_info/rpmsrate" : "media/media_info/rpmsrate") + getFile( + $suppl_method eq 'cdrom' && -e "/mnt/cdrom/media/media_info/rpmsrate" + ? "/mnt/cdrom/media/media_info/rpmsrate" + : "media/media_info/rpmsrate") ); ($o->{compssUsers}, $o->{gtk_display_compssUsers}) = pkgs::readCompssUsers( $o->{meta_class}, - ($suppl_method eq 'cdrom' ? '/mnt/cdrom/' : '') . 'media/media_info/compssUsers.pl' + ($suppl_method eq 'cdrom' && -e '/mnt/cdrom/media/media_info/compssUsers.pl' ? '/mnt/cdrom/' : '') + . 'media/media_info/compssUsers.pl' ); #- preselect default_packages and compssUsers selected. -- cgit v1.2.1