diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-06-26 23:47:03 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-06-26 23:47:03 -0500 |
commit | f1d557519289c4dba3730cca889db7329fcb6da0 (patch) | |
tree | 594fa5ff0044ed75344f24093a39fd845054e27e | |
parent | 4f2d533c463c984283722c72b23e6d7ffe65ec70 (diff) | |
download | net-termcast-f1d557519289c4dba3730cca889db7329fcb6da0.tar.gz net-termcast-f1d557519289c4dba3730cca889db7329fcb6da0.zip |
clear the list of sessions before filling it
-rw-r--r-- | lib/Net/Termcast.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Net/Termcast.pm b/lib/Net/Termcast.pm index 708d929..73bbfca 100644 --- a/lib/Net/Termcast.pm +++ b/lib/Net/Termcast.pm @@ -47,6 +47,7 @@ has sessions => ( get => 'session', exists => 'has_session', keys => 'session_ids', + clear => '_clear_sessions', set => '_set_session', }, ); @@ -143,7 +144,7 @@ sub _get_menu { # XXX: need to handle multiple pages sub _parse_menu { my $self = shift; - my %sessions; + $self->_clear_sessions; for my $row ($self->screen_rows) { next unless $row =~ /^ ([a-z])\) (\w+) \(idle ([^,]+), connected ([^,]+), (\d+) viewers?, (\d+) bytes?\)/; my ($session, $name, $idle, $connected, $viewers, $bytes) = ($1, $2, $3, $4, $5, $6); |