summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-10-30 22:34:40 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-10-30 22:34:40 +0000
commit6b6616e6e228c1bf9a2aaf22246c9044b77c586e (patch)
tree67a93849600232e3f2242f8e5501a0992b247142 /perl-install
parentb5c5e4c67853f148543f6fe96dc0b158ec282a19 (diff)
downloaddrakx-6b6616e6e228c1bf9a2aaf22246c9044b77c586e.tar
drakx-6b6616e6e228c1bf9a2aaf22246c9044b77c586e.tar.gz
drakx-6b6616e6e228c1bf9a2aaf22246c9044b77c586e.tar.bz2
drakx-6b6616e6e228c1bf9a2aaf22246c9044b77c586e.tar.xz
drakx-6b6616e6e228c1bf9a2aaf22246c9044b77c586e.zip
ensure we quit at once when we can't launche X server (I want to
have "can't launche graphical mode :(" as last msg)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 3bd25cac0..8d4fb6ebc 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -129,7 +129,7 @@ sub new($$) {
$o->{vga16} = 1 if /VGA16/;
&$launchX($prog, $Driver) and goto OK;
}
- $::move and die "can't launch graphical mode :(\n";
+ $::move and print("can't launch graphical mode :(\n"), c::_exit(1);
}
return undef;
}