From c8395e2cae3541eae8f929046c2244a3c365d976 Mon Sep 17 00:00:00 2001
From: Dan Boger <zigdon@irc.peeron.com>
Date: Thu, 8 Jan 2009 12:43:53 -0800
Subject: [PATCH] $VERSION = "1.1"; - r303 - Make sure we keep the cache of
 nicks up to date

---
 twirssi.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/twirssi.pl b/twirssi.pl
index ccba425..76892c3 100644
--- a/twirssi.pl
+++ b/twirssi.pl
@@ -10,7 +10,7 @@ use vars qw($VERSION %IRSSI);
 use constant { DEBUG => 0 };
 
 $VERSION = "1.1";
-my ($REV) = '$Rev: 302 $' =~ /(\d+)/;
+my ($REV) = '$Rev: 303 $' =~ /(\d+)/;
 %IRSSI   = (
     authors     => 'Dan Boger',
     contact     => 'zigdon@gmail.com',
@@ -150,6 +150,7 @@ sub cmd_login {
         &notice("Logged in as $user, loading friends list...");
         &load_friends;
         &notice( "loaded friends: ", scalar keys %nicks );
+        %nicks = %friends;
         $nicks{$user} = 0;
         &get_updates;
     } else {
@@ -163,7 +164,7 @@ sub load_friends {
     while (1) {
         my $friends = $twit->friends( { page => $page } );
         last unless $friends;
-        $new_friends{ $_->{screen_name} } = $nicks{ $_->{screen_name} } = time
+        $new_friends{ $_->{screen_name} } = time
           foreach @$friends;
         $page++;
         last if @$friends == 0 or $page == 10;
@@ -295,7 +296,7 @@ sub monitor_child {
             last;
           }
           my ($f, $t) = split ' ', $_;
-          $friends{$f} = $t;
+          $nicks{$f} = $friends{$f} = $t;
         }
 
         print "new last_poll = $last_poll" if DEBUG;
-- 
2.39.5