diff options
| -rw-r--r-- | perl-install/install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/interactive/curses.pm | 2 |
2 files changed, 2 insertions, 1 deletions
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) } |