From f1d557519289c4dba3730cca889db7329fcb6da0 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 26 Jun 2009 23:47:03 -0500
Subject: clear the list of sessions before filling it

---
 lib/Net/Termcast.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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);
-- 
cgit v1.2.3-54-g00ecf