From bdab1284757a968942516c8c439aaea78a9b3ee3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 26 Feb 2012 03:54:55 +0000
Subject: (main::SEGV) do not crash if $o isn't set

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

(limited to 'perl-install/install')

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