projects
/
twirssi-net-twitter-lite.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e33e788
)
r673 - don't allow monitor_child to process partial files. This is how it should...
author
Dan Boger
<zigdon@irc.peeron.com>
Thu, 16 Jul 2009 23:50:45 +0000
(16:50 -0700)
committer
Dan Boger
<zigdon@irc.peeron.com>
Thu, 16 Jul 2009 23:50:45 +0000
(16:50 -0700)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 281c124a417de12f6bdaa2d828a4fae6019ab277..daa01af72705b08ef33cbb0801158c176aa49000 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-11,7
+11,7
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
$VERSION = "2.2.5beta";
use vars qw($VERSION %IRSSI);
$VERSION = "2.2.5beta";
-my ($REV) = '$Rev: 6
6
3 $' =~ /(\d+)/;
+my ($REV) = '$Rev: 6
7
3 $' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-20,7
+20,7
@@
my ($REV) = '$Rev: 663 $' =~ /(\d+)/;
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://twirssi.com',
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://twirssi.com',
- changed => '$Date: 2009-07-
08 16:25:21 -0700 (Wed, 08
Jul 2009) $',
+ changed => '$Date: 2009-07-
16 16:50:30 -0700 (Thu, 16
Jul 2009) $',
);
my $window;
);
my $window;
@@
-758,7
+758,7
@@
sub get_updates {
my $pid = fork();
if ($pid) { # parent
my $pid = fork();
if ($pid) { # parent
- Irssi::timeout_add_once( 5000, 'monitor_child', [
$filename
, 0 ] );
+ Irssi::timeout_add_once( 5000, 'monitor_child', [
"$filename.done"
, 0 ] );
Irssi::pidwait_add($pid);
} elsif ( defined $pid ) { # child
close STDIN;
Irssi::pidwait_add($pid);
} elsif ( defined $pid ) { # child
close STDIN;
@@
-800,6
+800,7
@@
sub get_updates {
print $fh "-- $new_poll";
}
close $fh;
print $fh "-- $new_poll";
}
close $fh;
+ rename $filename, "$filename.done";
exit;
} else {
&ccrap("Failed to fork for updating: $!");
exit;
} else {
&ccrap("Failed to fork for updating: $!");