From: Dan Boger 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?ds=inline;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 () { chomp; - push @lines, $_ unless /^--friends:$/; + last if /^__friends__/; + push @lines, $_ unless /^__friends__/; } %friends = ();