2 files changed, 3 insertions, 0 deletions
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) :