v1.1, r302 - Fix a bug in async friends updates
authorDan Boger <zigdon@irc.peeron.com>
Thu, 8 Jan 2009 20:27:42 +0000 (12:27 -0800)
committerDan Boger <zigdon@irc.peeron.com>
Thu, 8 Jan 2009 20:27:42 +0000 (12:27 -0800)
twirssi.pl

index 7c096d5..ccba425 100644 (file)
@@ -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 = ();