*** empty log message ***

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;