diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-02-23 11:16:10 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-02-23 11:16:10 +0000 |
commit | c19d700d0608cba8d8d208238846b94505612c29 (patch) | |
tree | 8845c807e2b8a53a0927afb684a83f74c8bc167d /perl-install | |
parent | 65a3ecd62fa7a179bfa41ba1a05a34569ae4b621 (diff) | |
download | drakx-backup-do-not-use-c19d700d0608cba8d8d208238846b94505612c29.tar drakx-backup-do-not-use-c19d700d0608cba8d8d208238846b94505612c29.tar.gz drakx-backup-do-not-use-c19d700d0608cba8d8d208238846b94505612c29.tar.bz2 drakx-backup-do-not-use-c19d700d0608cba8d8d208238846b94505612c29.tar.xz drakx-backup-do-not-use-c19d700d0608cba8d8d208238846b94505612c29.zip |
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install2.pm | 4 | ||||
-rw-r--r-- | perl-install/install_steps_gtk.pm | 2 | ||||
-rw-r--r-- | perl-install/share/list.alpha | 2 |
3 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 1be42e390..5a43da7c3 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -483,7 +483,9 @@ sub exitInstall { $o->exitInstall(getNextStep() eq "exitInstall") } #-###################################################################################### sub main { $SIG{__DIE__} = sub { chomp(my $err = $_[0]); log::l("warning: $err") }; - $SIG{SEGV} = sub { my $msg = "Seems like memory is missing as the install crashes"; print "$msg\n"; log::l($msg) }; + $SIG{SEGV} = sub { my $msg = "Seems like memory is missing as the install crashes"; print "$msg\n"; log::l($msg); + install_steps_auto_install::errorInStep(); + }; $::beginner = $::expert = $::g_auto_install = 0; diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 9462477fc..84bb2f057 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -193,7 +193,7 @@ sub new($$) { 0; }; my @servers = qw(FBDev VGA16); #-) - @servers = qw(3DLabs) if arch() eq "alpha"; + @servers = qw(SVGA 3DLabs TGA) if arch() eq "alpha"; @servers = qw(Mach64) if arch() =~ /^sparc/; foreach (@servers) { diff --git a/perl-install/share/list.alpha b/perl-install/share/list.alpha index efabaecbb..ba7f3dac2 100644 --- a/perl-install/share/list.alpha +++ b/perl-install/share/list.alpha @@ -1,2 +1,4 @@ /usr/X11R6/bin/XF86_3DLabs +/usr/X11R6/bin/XF86_SVGA +/usr/X11R6/bin/XF86_TGA /usr/X11R6/bin/xmodmap |