projects
/
twirssi-net-twitter-lite.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
v1.1, r302 - Fix a bug in async friends updates
[twirssi-net-twitter-lite.git]
/
twirssi.pl
diff --git
a/twirssi.pl
b/twirssi.pl
index 7c096d571d558e9fd189651425e5c97d3e392c46..ccba42575b0790724ddbb2e9de6bf78ad07a9e56 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-10,7
+10,7
@@
use vars qw($VERSION %IRSSI);
use constant { DEBUG => 0 };
$VERSION = "1.1";
use constant { DEBUG => 0 };
$VERSION = "1.1";
-my ($REV) = '$Rev: 30
1
$' =~ /(\d+)/;
+my ($REV) = '$Rev: 30
2
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-264,7
+264,7
@@
sub get_updates {
$text;
}
print scalar localtime, " - Done" if DEBUG;
$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";
&load_friends;
foreach (sort keys %friends) {
print $fh "$_ $friends{$_}\n";
@@
-284,7
+284,8
@@
sub monitor_child {
my @lines;
while (<FILE>) {
chomp;
my @lines;
while (<FILE>) {
chomp;
- push @lines, $_ unless /^--friends:$/;
+ last if /^__friends__/;
+ push @lines, $_ unless /^__friends__/;
}
%friends = ();
}
%friends = ();