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 ) {
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
