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] 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