summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-02-23 11:16:10 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-02-23 11:16:10 +0000
commitc19d700d0608cba8d8d208238846b94505612c29 (patch)
tree8845c807e2b8a53a0927afb684a83f74c8bc167d /perl-install
parent65a3ecd62fa7a179bfa41ba1a05a34569ae4b621 (diff)
downloaddrakx-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.pm4
-rw-r--r--perl-install/install_steps_gtk.pm2
-rw-r--r--perl-install/share/list.alpha2
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