summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/curses.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-06 20:33:15 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-06 20:33:15 +0000
commit34a91d29b8b3c4896ce3d410f68ba1d588deae6f (patch)
tree3ea071e94f0ce3d50e21e140bc74678306a4d20e /perl-install/interactive/curses.pm
parent57873e7a0a66d618944dcb8eaf19be7c706928e9 (diff)
downloaddrakx-34a91d29b8b3c4896ce3d410f68ba1d588deae6f.tar
drakx-34a91d29b8b3c4896ce3d410f68ba1d588deae6f.tar.gz
drakx-34a91d29b8b3c4896ce3d410f68ba1d588deae6f.tar.bz2
drakx-34a91d29b8b3c4896ce3d410f68ba1d588deae6f.tar.xz
drakx-34a91d29b8b3c4896ce3d410f68ba1d588deae6f.zip
(suspend) fix crashing if we failed to initialize Curses
Diffstat (limited to 'perl-install/interactive/curses.pm')
-rw-r--r--perl-install/interactive/curses.pm2
1 files changed, 1 insertions, 1 deletions
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) }