From de2849839b0e9de80d66adfb573d8ab4cd931b8d Mon Sep 17 00:00:00 2001
From: Dan Boger <zigdon@irc.peeron.com>
Date: Thu, 8 Jan 2009 12:27:42 -0800
Subject: [PATCH 1/1] v1.1, r302 - Fix a bug in async friends updates

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

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 = ();
-- 
2.39.5