Parent Directory | Revision Log | Patch
revision 17 by dpavlin, Thu Oct 25 19:32:15 2007 UTC | revision 19 by dpavlin, Thu Oct 25 19:37:10 2007 UTC | |
---|---|---|
# | Line 80 sub full_line { | Line 80 sub full_line { |
80 | my $cols = $self->screen->cols; | my $cols = $self->screen->cols; |
81 | ||
82 | my $t = shift; | my $t = shift; |
83 | ||
84 | $t =~ s/{s}//; | |
85 | ||
86 | $t = '' unless defined $t; | $t = '' unless defined $t; |
87 | $t = substr($t,0,$cols) if length($t) > $cols; | $t = substr($t,0,$cols) if length($t) > $cols; |
88 | return $t . (" " x ($cols - length($t))); | return $t . (" " x ($cols - length($t))); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |