From: Dan Boger Date: Thu, 8 Jan 2009 20:51:18 +0000 (-0800) Subject: 1.6.1 - r337 - Fix missing ; in print statements X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/commitdiff_plain/d2f53eac09735b075b640217f197c2423955e749?ds=inline;hp=-c 1.6.1 - r337 - Fix missing ; in print statements --- d2f53eac09735b075b640217f197c2423955e749 diff --git a/twirssi.pl b/twirssi.pl index 8f7f966..4a6b5dd 100644 --- a/twirssi.pl +++ b/twirssi.pl @@ -12,7 +12,7 @@ $Data::Dumper::Indent = 1; use vars qw($VERSION %IRSSI); $VERSION = "1.6.1"; -my ($REV) = '$Rev: 336 $' =~ /(\d+)/; +my ($REV) = '$Rev: 337 $' =~ /(\d+)/; %IRSSI = ( authors => 'Dan Boger', contact => 'zigdon@gmail.com', @@ -651,8 +651,8 @@ sub do_updates { }; if ($@) { - printf $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 ) { @@ -691,10 +691,11 @@ sub do_updates { 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 ) {