summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfigurator.pm4
-rw-r--r--perl-install/install_interactive.pm4
-rw-r--r--perl-install/interactive.pm2
-rw-r--r--perl-install/interactive_gtk.pm7
-rw-r--r--perl-install/interactive_newt.pm2
5 files changed, 13 insertions, 6 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index d094f27fe..f924b379c 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -271,10 +271,10 @@ NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.", $xf3_ver)) . "
}
-x "$prefix$card->{prog}" or $install && do {
- $in->suspend if ref($in) =~ /newt/;
+ $in->suspend;
&$install('server', @l) if $card->{use_xf4};
&$install($card->{server}, @l) if !$card->{use_xf4};
- $in->resume if ref($in) =~ /newt/;
+ $in->resume;
};
-x "$prefix$card->{prog}" or die "server $card->{server} is not available (should be in $prefix$card->{prog})";
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};
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index e11a72029..8096c4a0c 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -61,6 +61,8 @@ sub vnew {
}
}
+sub enter_console {}
+sub leave_console {}
sub suspend {}
sub resume {}
sub end {}
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 3a198a5dd..5335909d9 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -16,8 +16,11 @@ sub new {
$::windowheight ||= 400 if $::isStandalone;
goto &interactive::new;
}
-sub suspend { my ($o) = @_; $o->{suspended} = common::setVirtual(1) }
-sub resume { my ($o) = @_; common::setVirtual(delete $o->{suspended}) }
+sub enter_console { my ($o) = @_; $o->{suspended} = common::setVirtual(1) }
+sub leave_console { my ($o) = @_; common::setVirtual(delete $o->{suspended}) }
+
+sub suspend {}
+sub resume {}
sub exit {
gtkset_mousecursor_normal(); #- for restoring a normal in any case on standalone
diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm
index 845bb0767..9aa80b4c8 100644
--- a/perl-install/interactive_newt.pm
+++ b/perl-install/interactive_newt.pm
@@ -23,6 +23,8 @@ sub new() {
bless {}, $_[0];
}
+sub enter_console { Newt::Suspend }
+sub leave_console { Newt::Suspend }
sub suspend { Newt::Suspend }
sub resume { Newt::Resume }
sub end() { Newt::Finished }