From: Dan Boger <zigdon@irc.peeron.com>
Date: Thu, 8 Jan 2009 20:27:42 +0000 (-0800)
Subject: v1.1, r302 - Fix a bug in async friends updates
X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/commitdiff_plain/de2849839b0e9de80d66adfb573d8ab4cd931b8d?hp=-c

v1.1, r302 - Fix a bug in async friends updates
---

de2849839b0e9de80d66adfb573d8ab4cd931b8d
diff --git a/twirssi.pl b/twirssi.pl
index 7c096d5..ccba425 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: 301 $' =~ /(\d+)/;
+my ($REV) = '$Rev: 302 $' =~ /(\d+)/;
 %IRSSI   = (
     authors     => 'Dan Boger',
     contact     => 'zigdon@gmail.com',
@@ -264,7 +264,7 @@ sub get_updates {
               $text;
         }
         print scalar localtime, " - Done" if DEBUG;
-        print $fh "--friends:\n";
+        print $fh "__friends__\n";
         &load_friends;
         foreach (sort keys %friends) {
           print $fh "$_ $friends{$_}\n";
@@ -284,7 +284,8 @@ sub monitor_child {
         my @lines;
         while (<FILE>) {
           chomp;
-          push @lines, $_ unless /^--friends:$/;
+          last if /^__friends__/;
+          push @lines, $_ unless /^__friends__/;
         }
 
         %friends = ();