From 091353cf267810593f5c72f014a8d9a6a0d0fbc9 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Sat, 3 Mar 2001 01:48:49 +0000 Subject: *** empty log message *** --- perl-install/install_interactive.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install/install_interactive.pm') 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; -- cgit v1.2.1