From 55d44a1b5c6e4d2f45d365fe7680aa619c831506 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 18 Apr 2000 14:38:41 +0000 Subject: no_comment --- perl-install/install2.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl-install/install2.pm') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 8bd94c67b..3f9414a78 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -491,12 +491,12 @@ 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 = "segmentation fault: seems like memory is missing as the install crashes"; print "$msg\n"; log::l($msg); -# $o->ask_warn('', $msg); -# setVirtual(1); -# require install_steps_auto_install; -# install_steps_auto_install::errorInStep(); -# }; + $SIG{SEGV} = sub { my $msg = "segmentation fault: seems like memory is missing as the install crashes"; print "$msg\n"; log::l($msg); + $o->ask_warn('', $msg); + setVirtual(1); + require install_steps_auto_install; + install_steps_auto_install::errorInStep(); + }; $ENV{SHARE_PATH} ||= "/usr/share"; $ENV{DURING_INSTALL} = 1; -- cgit v1.2.1