From 30159888f459d6307c37e0017021ba703f7a90d3 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 22 Oct 2009 17:25:42 +0000
Subject: curses backend: do not crash when resuming interface

---
 perl-install/interactive/curses.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/interactive/curses.pm')

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() }
-- 
cgit v1.2.1