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:
fc916c5
)
1.6.1 - r337 - Fix missing ; in print statements
author
Dan Boger
<zigdon@irc.peeron.com>
Thu, 8 Jan 2009 20:51:18 +0000
(12:51 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Thu, 8 Jan 2009 20:51:18 +0000
(12:51 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 8f7f966cd42fa7326cd4b5e4a664b092900208c9..4a6b5dd726cb62a72bbbf86a33d338da1dfde78e 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-12,7
+12,7
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
$VERSION = "1.6.1";
use vars qw($VERSION %IRSSI);
$VERSION = "1.6.1";
-my ($REV) = '$Rev: 33
6
$' =~ /(\d+)/;
+my ($REV) = '$Rev: 33
7
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-651,8
+651,8
@@
sub do_updates {
};
if ($@) {
};
if ($@) {
- print
f $fh "type:error Error during friends_timeline call. Aborted.\n"
-
return;
+ print
$fh "type:error Error during friends_timeline call. Aborted.\n";
+ return;
}
foreach my $t ( reverse @$tweets ) {
}
foreach my $t ( reverse @$tweets ) {
@@
-691,10
+691,11
@@
sub do_updates {
eval {
$tweets = $obj->replies( { since => HTTP::Date::time2str($last_poll) } )
|| [];
eval {
$tweets = $obj->replies( { since => HTTP::Date::time2str($last_poll) } )
|| [];
- }
+ };
- if ($@) {
- printf $fh "type:error Error during replies call. Aborted.\n" return;
+ if ($@) {
+ print $fh "type:error Error during replies call. Aborted.\n";
+ return;
}
foreach my $t ( reverse @$tweets ) {
}
foreach my $t ( reverse @$tweets ) {