diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-06 20:33:15 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-06 20:33:15 +0000 |
| commit | 8ca8e15cd4277f7c6265e519bc6d7bf4a8f20afb (patch) | |
| tree | 3ea071e94f0ce3d50e21e140bc74678306a4d20e /perl-install/interactive/curses.pm | |
| parent | c6faf0f25be19638f1be1ec88598a702eb45e006 (diff) | |
| download | drakx-backup-do-not-use-8ca8e15cd4277f7c6265e519bc6d7bf4a8f20afb.tar drakx-backup-do-not-use-8ca8e15cd4277f7c6265e519bc6d7bf4a8f20afb.tar.gz drakx-backup-do-not-use-8ca8e15cd4277f7c6265e519bc6d7bf4a8f20afb.tar.bz2 drakx-backup-do-not-use-8ca8e15cd4277f7c6265e519bc6d7bf4a8f20afb.tar.xz drakx-backup-do-not-use-8ca8e15cd4277f7c6265e519bc6d7bf4a8f20afb.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.pm | 2 |
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) } |