From 51ceb10514e3a4bdfb315f5cdf18f9c59b68ea3e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 8 Apr 2009 11:54:23 +0000
Subject: (main) log where we segfaulted

---
 perl-install/install/install2.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/install/install2.pm')

diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 465c5ba42..2cd404c37 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -294,7 +294,8 @@ sub exitInstall {
 sub main {
 #-    $SIG{__DIE__} = sub { warn "DIE " . backtrace() . "\n" };
     $SIG{SEGV} = sub { 
-	my $msg = "segmentation fault: install crashed (maybe memory is missing?)"; log::l($msg);
+	my $msg = "segmentation fault: install crashed (maybe memory is missing?)\n" . backtrace();
+	log::l("$msg\n" . backtrace());
 	$o->ask_warn('', $msg);
 	setVirtual(1);
 	require install::steps_auto_install;
-- 
cgit v1.2.1