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/NEWS        | 1 +
 perl-install/install/install2.pm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 137205d66..e6a7d791a 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -4,6 +4,7 @@
     files from network (thus fixing #48887)
   o tell urpmi to read synthesis before adding supplementary network
     media in order to be able to install the 'basesystem' package
+- log where we segfaulted
 
 Version 12.25.1 - 07 April 2009
 
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