diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-06-26 20:34:49 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-06-26 20:34:49 -0500 |
| commit | 8b242b5ad8d19185e946af5451520ec828d64b3c (patch) | |
| tree | c13032ea77c8b6930f3e9bf1adeee4eea6708cbe | |
| parent | 10aff45bfeab4ec714fc44bf71ef9cc6c306f89b (diff) | |
| download | net-termcast-8b242b5ad8d19185e946af5451520ec828d64b3c.tar.gz net-termcast-8b242b5ad8d19185e946af5451520ec828d64b3c.zip | |
better implementation of getting screen rows
| -rw-r--r-- | lib/Net/Termcast.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lib/Net/Termcast.pm b/lib/Net/Termcast.pm index 57bd6ae..eb115bb 100644 --- a/lib/Net/Termcast.pm +++ b/lib/Net/Termcast.pm @@ -106,9 +106,7 @@ sub select_session { sub screen_rows { my $self = shift; $self->_get_screen; - my @rows; - push @rows, $self->_vt->row_plaintext($_) for 1..$self->rows; - return @rows; + return map { $self->_vt->row_plaintext($_) } 1..$self->rows; } sub screen { |