From 349929a1901d100e78b14671965d3691c10fc4b9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 6 Mar 2012 20:32:59 +0000
Subject: (SEGV handler) no doble backtrace in logs

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

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

diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 96720aa62..025382977 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -319,7 +319,7 @@ sub main {
 #-    $SIG{__DIE__} = sub { warn "DIE " . backtrace() . "\n" };
     $SIG{SEGV} = sub { 
 	my $msg = "segmentation fault: install crashed (maybe memory is missing?)\n" . backtrace();
-	log::l("$msg\n" . backtrace());
+	log::l("$msg\n");
 	$o and $o->ask_warn('', $msg);
 	setVirtual(1);
 	stop_udev() if !$::local_install;
-- 
cgit v1.2.1