a better way of doing newlines? should make the console pastable again.

diff --git a/perl/console.pl b/perl/console.pl
index fd033d90d66cb704d9efcb939344bbeac5522ab0..df524beb140241de71b4e19265fc88d25281fb33 100755 (executable)
--- 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;
                }