summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install_steps.pm2
-rw-r--r--perl-install/install_steps_interactive.pm5
2 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 123e620b6..8570f6e51 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -997,7 +997,7 @@ sub exitInstall {
output "$::prefix$report", install_any::report_bug($o->{prefix});
run_program::rooted($::prefix, 'gzip', $report);
};
- install_any::getAndSaveAutoInstallFloppies($o, 1);
+ install_any::getAndSaveAutoInstallFloppies($o, 1) if arch() !~ /^ppc/;
eval { output "$o->{prefix}/root/drakx/README", "This directory contains several installation-related files,
mostly log files (very useful if you ever report a bug!).
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 13b2a4acf..e3c4bbf87 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1356,7 +1356,8 @@ Do you really want to quit now?"), 0);
ok => N("Reboot"),
},
[
- { val => \ (my $_t1 = N("Generate auto install floppy")), clicked => sub {
+ if_(arch() !~ /^ppc/,
+ { val => \ (my $_t1 = N("Generate auto install floppy")), clicked => sub {
my $t = $o->ask_from_list_('',
N("The auto install can be fully automated if wanted,
in that case it will take over the hard drive!!
@@ -1365,7 +1366,7 @@ in that case it will take over the hard drive!!
You may prefer to replay the installation.
"), [ N_("Replay"), N_("Automated") ]);
$t and $o->generateAutoInstFloppy($t eq 'Replay');
- }, advanced => 1 },
+ }, advanced => 1 }),
{ val => \ (my $_t2 = N("Save packages selection")), clicked => sub { install_any::g_default_packages($o) }, advanced => 1 },
]
) if $alldone;