From c3daceec1d39de3f970cab7d41ec1293ded82444 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 19 Jul 2001 12:00:32 +0000
Subject: fix exit install in graphical auto_install's

---
 perl-install/install_steps_auto_install.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'perl-install')

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";
-- 
cgit v1.2.1