From 5b16fd51941f17c26f8acaa35183cb8d407d16bc Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 7 Nov 2001 00:02:10 +0000
Subject: [PATCH] a better way of doing newlines? should make the console
 pastable again.

---
 perl/console.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl/console.pl b/perl/console.pl
index fd033d90..df524beb 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -190,8 +190,9 @@ sub show_screen
 			my $line = $shistory[$p];
 			my $lines = measure($line);
 			last if $i + $lines > $pagel;
+			$top->addstr("\n") if $i;
 			setattr($line);
-			$top->addstr($i, 0, "$line\n");
+			$top->addstr($line);
 			$top->attrset(COLOR_PAIR(0)) if $has_colors;
 			$i += $lines;
 		}
-- 
2.34.1