summaryrefslogtreecommitdiffstats
path: root/perl-install/install_interactive.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2000-09-19 16:45:48 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2000-09-19 16:45:48 +0000
commitede1eacadd1ad9ca90fb1d7ee2508bce4eac3dbe (patch)
tree944618efb81b3282f0e0d173c13ea7223bb9d3e7 /perl-install/install_interactive.pm
parent5a487a674f320081abd558bcdbfe305d00cbdc96 (diff)
downloaddrakx-backup-do-not-use-ede1eacadd1ad9ca90fb1d7ee2508bce4eac3dbe.tar
drakx-backup-do-not-use-ede1eacadd1ad9ca90fb1d7ee2508bce4eac3dbe.tar.gz
drakx-backup-do-not-use-ede1eacadd1ad9ca90fb1d7ee2508bce4eac3dbe.tar.bz2
drakx-backup-do-not-use-ede1eacadd1ad9ca90fb1d7ee2508bce4eac3dbe.tar.xz
drakx-backup-do-not-use-ede1eacadd1ad9ca90fb1d7ee2508bce4eac3dbe.zip
changed `suspend' and `resume' to behave as expected.
added `enter_console' and `leave_console' for install_interactive::use_fdisk
Diffstat (limited to 'perl-install/install_interactive.pm')
-rw-r--r--perl-install/install_interactive.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index 187fddf1c..45766abaa 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -158,7 +158,7 @@ When sure, press Ok.")) or return;
$solutions{fdisk} =
[ -10, _("Use fdisk"), sub {
- $o->suspend;
+ $o->enter_console;
foreach (@$hds) {
print "\n" x 10, _("You can now partition %s.
When you are done, don't forget to save using `w'", partition_table_raw::description($_));
@@ -166,7 +166,7 @@ When you are done, don't forget to save using `w'", partition_table_raw::descrip
my $pid = fork or exec "fdisk", devices::make($_->{device});
waitpid($pid, 0);
}
- $o->resume;
+ $o->leave_console;
0;
} ] if $o->{partitioning}{fdisk};