From 96372954857a21ecf264d061ce02f90171a5ad0d Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mageia.org>
Date: Thu, 22 Dec 2011 22:09:04 +0000
Subject: interactive::curses: default to 80x25 (fixes serial)

---
 perl-install/NEWS                  | 1 +
 perl-install/install/NEWS          | 1 +
 perl-install/interactive/curses.pm | 7 +++++++
 3 files changed, 9 insertions(+)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index f00282d8a..57a973d08 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -3,6 +3,7 @@
     device" choice
   o display partition labels when adding a foreign OS
 - harddrake: fix missing names (mga#3745)
+- interactive::curses: default to 80x25 (fixes serial)
 
 Version 13.72.1 - 11 December 2011
 
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index dbe309d24..1ebbb3578 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -2,6 +2,7 @@
 - do not hardcode systemd default through kernel command line, it
   should be easily overridable by just picking the proper init package
 - include xfs_freeze (needed for setup grub on XFS, mga#1536)
+- interactive::curses: default to 80x25 (fixes serial)
 
 Version 13.73 - 11 December 2011
 
diff --git a/perl-install/interactive/curses.pm b/perl-install/interactive/curses.pm
index cdcb6fe7f..2015c38de 100644
--- a/perl-install/interactive/curses.pm
+++ b/perl-install/interactive/curses.pm
@@ -32,6 +32,13 @@ sub new {
     open STDERR, ">", common::secured_file($stderr_file);
 
     $cui ||= Curses::UI->new('-color_support' => 1);
+
+    # Set some default terminal size, for serial install
+    unless ($cui->{-width}) {
+	$cui->{-width} = $cui->{-w} = $cui->{-bw} = 80;
+    	$cui->{-height} = $cui->{-h} = $cui->{-bh} = 25;
+    }
+
     bless { cui => $cui }, $class;
 }
 
-- 
cgit v1.2.1