summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2009-10-22 17:25:42 +0000
committerOlivier Blin <oblin@mandriva.com>2009-10-22 17:25:42 +0000
commit30159888f459d6307c37e0017021ba703f7a90d3 (patch)
tree34a95b2a8e65bb15faeae1c0ee34de2b22dd12fc
parent429364130579b0282cfef9fae0bf86b620c34333 (diff)
downloaddrakx-backup-do-not-use-30159888f459d6307c37e0017021ba703f7a90d3.tar
drakx-backup-do-not-use-30159888f459d6307c37e0017021ba703f7a90d3.tar.gz
drakx-backup-do-not-use-30159888f459d6307c37e0017021ba703f7a90d3.tar.bz2
drakx-backup-do-not-use-30159888f459d6307c37e0017021ba703f7a90d3.tar.xz
drakx-backup-do-not-use-30159888f459d6307c37e0017021ba703f7a90d3.zip
curses backend: do not crash when resuming interface
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/interactive/curses.pm4
3 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index b9565aebf..a2003342e 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- curses backend: do not crash when resuming interface
+
Version 12.68 - 19 October 2009
- avoid error messages when using lvm in draklive-install (#36415)
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 6cce3b6c4..db429a979 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- curses backend: do not crash when resuming interface
+
Version 12.69 - 21 October 2009
- user management:
diff --git a/perl-install/interactive/curses.pm b/perl-install/interactive/curses.pm
index 90fca4c14..ffeeafd32 100644
--- a/perl-install/interactive/curses.pm
+++ b/perl-install/interactive/curses.pm
@@ -37,8 +37,8 @@ sub new {
sub enter_console { &suspend }
sub leave_console { &end }
-sub suspend { Curses::UI->leave_curses }
-sub resume { Curses::UI->reset_curses }
+sub suspend { $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) }
END { end() }