From 4687038b84ae2f72327f7b8a02067f72872b49bc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 23 Mar 2012 20:23:03 +0000
Subject: (SEGV_handler) add a perl_checker hint

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

diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 524bfc15d..03f617154 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -27,7 +27,6 @@ use log;
 use fs;
 use fs::any;
 
-
 #-#######################################################################################
 #-$O
 #-the big struct which contain, well everything (globals + the interactive methods ...)
@@ -319,6 +318,7 @@ sub main {
     $SIG{SEGV} = sub { 
 	my $msg = "segmentation fault: install crashed (maybe memory is missing?)\n" . backtrace();
 	log::l("$msg\n");
+	# perl_checker: require UNIVERSAL
 	UNIVERSAL::can($o, 'ask_warn') and $o->ask_warn('', $msg);
 	setVirtual(1);
 	require install::steps_auto_install;
-- 
cgit v1.2.1