From 34a91d29b8b3c4896ce3d410f68ba1d588deae6f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 6 Mar 2012 20:33:15 +0000
Subject: (suspend) fix crashing if we failed to initialize Curses

---
 perl-install/install/NEWS          | 1 +
 perl-install/interactive/curses.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index f6068abb4..9b30da0ac 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- fix crashing if we failed to initialize Curses
 - fix double segfault when text installer fails to init
 - fix stopping udev
 
diff --git a/perl-install/interactive/curses.pm b/perl-install/interactive/curses.pm
index 2015c38de..9a50522aa 100644
--- a/perl-install/interactive/curses.pm
+++ b/perl-install/interactive/curses.pm
@@ -44,7 +44,7 @@ sub new {
 
 sub enter_console { &suspend }
 sub leave_console { &end }
-sub suspend { $cui->leave_curses }
+sub suspend { $cui && $cui->leave_curses }
 sub resume { $cui->reset_curses }
 sub end { &suspend; print $SAVEERR $_ foreach cat_($stderr_file); unlink $stderr_file }
 sub exit { end(); CORE::exit($_[1] || 0) }
-- 
cgit v1.2.1