summaryrefslogtreecommitdiffstats
path: root/advanced.msg.xml
blob: f49bb7fe8be7d9b769cd9d4db4417cc49b8884e3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<document>
The following install types may be used instead of previously notified :
 o  <white>vgahi</white> for high resolution graphical installation.
 o  <white>vga16</white> for 640x480 in 16 colors graphical installation.

The following options may be added on the command line :
 o  <white>readonly=1</white> to disable editing disk partitions.
 o  <white>display=ackbar:0</white> to export display to <blue>ackbar</blue> machine screen 0 during
    installation.
 o  <white>noauto</white> to disable automatic detection (generally used with <white>expert</white>).
 o  <white>security=n</white> to set security level to value <blue>n</blue>.
 o  <white>updatemodules</white> to use the special update floppy containing modules updates.
 o  <white>patch</white> to use a patch from the floppy (file named <blue>patch.pl</blue>).
 o  <white>auto_install=floppy</white> to enable auto_install using <blue>auto_inst.cfg</blue> file on the
    floppy.
 o  <white>memtest</white> to test your computer RAM for faulty memory modules.
</document>
92ebb1c5e419bd016f594722fa1ea'>perl-install/install_any.pm5
-rw-r--r--perl-install/pkgs.pm7
2 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index f01824732..0389f4a70 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -160,7 +160,10 @@ sub setup_postinstall_rpms($$) {
my %toCopy;
#- compute closure of package that may be copied, use INSTALL category
#- in rpmsrate.
- pkgs::setSelectedFromCompssList($packages, { INSTALL => 1 }, 0, 0, \%toCopy);
+ foreach (@{$packages->{needToCopy} || []}) {
+ my $p = pkgs::packageByName($packages, $_);
+ pkgs::selectPackage($packages, $p, 0, \%toCopy);
+ }
my @toCopy = grep { $_ && pkgs::packageFlagSelected($_) == 0 } map { pkgs::packageByName($packages, $_) } keys %toCopy;
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 5998c9e6c..790063ced 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -667,15 +667,16 @@ sub read_rpmsrate {
foreach (split ' ', $data) {
if ($packages) {
my $p = packageByName($packages, $_) or next;
-
my @m2 =
map { if_($_ && packageName($_) =~ /locales-(.*)/, qq(LOCALES"$1")) }
map { packageById($packages, $_) } packageDepsId($p);
my @m3 = ((grep { !/^\d$/ } @m), @m2);
+ if (@m3 == 1 && $m3[0] eq 'INSTALL') {
+ push @{$packages->{needToCopy} ||= []}, $_;
+ next; #- don't need to put INSTALL flag for a package.
+ }
if (packageRate($p)) {
- next if @m3 == 1 && $m3[0] eq 'INSTALL';
-
my ($rate2, @m4) = packageRateRFlags($p);
if (@m3 > 1 || @m4 > 1) {
log::l("can't handle complicate flags for packages appearing twice ($_)");