summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-06-24 08:16:45 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-06-24 08:16:45 +0000
commitf44ec9f5132a495bc5632532abf0892ccdba4ba8 (patch)
treeef139c2f9749a38e21b8fc59ce6b9046b6ad7d52 /perl-install
parent429480c9d9b7da57229a9ef37bbde08a9ed4a9c4 (diff)
downloaddrakx-backup-do-not-use-f44ec9f5132a495bc5632532abf0892ccdba4ba8.tar
drakx-backup-do-not-use-f44ec9f5132a495bc5632532abf0892ccdba4ba8.tar.gz
drakx-backup-do-not-use-f44ec9f5132a495bc5632532abf0892ccdba4ba8.tar.bz2
drakx-backup-do-not-use-f44ec9f5132a495bc5632532abf0892ccdba4ba8.tar.xz
drakx-backup-do-not-use-f44ec9f5132a495bc5632532abf0892ccdba4ba8.zip
(acceptLicense) just reboot when one cancel the globetrotter first time wizard
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 28ecc1787..d7a3369bd 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -87,6 +87,10 @@ sub acceptLicense {
},
[ { list => [ N_("Accept"), N_("Refuse") ], val => \$r, type => 'list', format => sub { translate($_[0]) } } ]))
or do {
+ if ($::globetrotter) {
+ system("killall XFree86");
+ exec("/sbin/reboot");
+ };
install_any::ejectCdrom();
$o->exit;
};