SVN: toys/rsget.pl/RSGet/Line.pm

[sparky]

Author: sparky
Date: Mon Nov  2 16:09:11 2009
New Revision: 10925

Modified:
   toys/rsget.pl/RSGet/Line.pm
Log:
- don't fill the line completely, leave last column blank


Modified: toys/rsget.pl/RSGet/Line.pm
==============================================================================
--- toys/rsget.pl/RSGet/Line.pm	(original)
+++ toys/rsget.pl/RSGet/Line.pm	Mon Nov  2 16:09:11 2009
@@ -93,12 +93,12 @@
 			$status[ $#status ] .= $s;
 		}
 	}
-	my @print = ( " \\$h/ " );
+	my @print = ( " \\$h/" );
 	foreach ( @status ) {
-		my $l = " |" . ( " " x ($columns - 4 - length $_ )) . $_ . "| ";
+		my $l = " |" . ( " " x ($columns - 4 - length $_ )) . $_ . "|";
 		push @print, $l;
 	}
-	push @print, " /$horiz\\ ";
+	push @print, " /$horiz\\";
 	print map { "\r\n$_\033[K" } @print;
 	return scalar @print;
 }
@@ -106,7 +106,7 @@
 
 sub print_active_lines
 {
-    my $columns = shift;
+    my $columns = shift() - 1;
 	my @print;
 
 	foreach my $key ( sort { $a <=> $b } keys %active ) {