From 8b242b5ad8d19185e946af5451520ec828d64b3c Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 26 Jun 2009 20:34:49 -0500 Subject: better implementation of getting screen rows --- lib/Net/Termcast.pm | 4 +--- 1 file changed, 1 insertion(+), 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 { -- cgit v1.2.3-54-g00ecf