From 02b93476259797da8a9d3642796c9ba79a484cbb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 6 Mar 2012 20:33:18 +0000
Subject: (main) set geometry for text installer (help Curses)

---
 perl-install/install/NEWS        | 1 +
 perl-install/install/install2.pm | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 9b30da0ac..ad5647f57 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,6 +1,7 @@
 - fix crashing if we failed to initialize Curses
 - fix double segfault when text installer fails to init
 - fix stopping udev
+- set geometry for text installer
 
 Version 13.89 - 02 March 2012
 
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 4fdba1f57..8917834e2 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -587,6 +587,8 @@ sub main {
     }
 
     my $o_;
+    $ENV{COLUMNS} ||= 80;
+    $ENV{LINES}   ||= 25;
     while (1) {
     	$o_ = $::auto_install ?
     	  install::steps_auto_install->new($o) :
-- 
cgit v1.2.1