summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-07-19 12:00:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-07-19 12:00:32 +0000
commitc3daceec1d39de3f970cab7d41ec1293ded82444 (patch)
tree29e538aee427750f4f53eb36ab8b2ad3313b8e8b /perl-install
parentdc04b762a7729bd0790b92d8c61bf9d182d0b654 (diff)
downloaddrakx-c3daceec1d39de3f970cab7d41ec1293ded82444.tar
drakx-c3daceec1d39de3f970cab7d41ec1293ded82444.tar.gz
drakx-c3daceec1d39de3f970cab7d41ec1293ded82444.tar.bz2
drakx-c3daceec1d39de3f970cab7d41ec1293ded82444.tar.xz
drakx-c3daceec1d39de3f970cab7d41ec1293ded82444.zip
fix exit install in graphical auto_install's
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_auto_install.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index 256f19ed2..3b46e6c02 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -98,9 +98,8 @@ sub exitInstall {
my ($o, $alldone) = @_;
return if $o->{autoExitInstall};
- if ($graphical) {
- my $O = bless $o, "install_steps_gtk";
- $O->exitInstall($alldone);
+ if ($o->{interactive}) {
+ (bless $o, "install_steps_$o->{interactive}")->exitInstall($alldone);
} else {
install_steps::exitInstall($o);
print "\a";