diff options
Diffstat (limited to 'perl-install/install_interactive.pm')
| -rw-r--r-- | perl-install/install_interactive.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm index f38159fa5..789e557d1 100644 --- a/perl-install/install_interactive.pm +++ b/perl-install/install_interactive.pm @@ -172,7 +172,12 @@ When sure, press Ok.")) or return; print "\n" x 10, _("You can now partition %s. When you are done, don't forget to save using `w'", partition_table_raw::description($_)); print "\n\n"; - my $pid = fork or exec "fdisk", devices::make($_->{device}); + my $pid = 0; + if (arch() =~ /ppc/) { + $pid = fork or exec "pdisk", devices::make($_->{device}); + } else { + $pid = fork or exec "fdisk", devices::make($_->{device}); + } waitpid($pid, 0); } $o->leave_console; |