From: Dan Boger Date: Tue, 20 Jan 2009 07:33:54 +0000 (-0800) Subject: 1.7.5 - r374 - Minor fix, avoid another unevaled call to JSON::Any X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/commitdiff_plain/6f729e27074854031f6f3562eb42504e29762f66?ds=sidebyside;hp=-c 1.7.5 - r374 - Minor fix, avoid another unevaled call to JSON::Any --- 6f729e27074854031f6f3562eb42504e29762f66 diff --git a/twirssi.pl b/twirssi.pl index 282113c..ad7bf88 100644 --- a/twirssi.pl +++ b/twirssi.pl @@ -11,8 +11,8 @@ $Data::Dumper::Indent = 1; use vars qw($VERSION %IRSSI); -$VERSION = "1.7.4"; -my ($REV) = '$Rev: 358 $' =~ /(\d+)/; +$VERSION = "1.7.5"; +my ($REV) = '$Rev: 374 $' =~ /(\d+)/; %IRSSI = ( authors => 'Dan Boger', contact => 'zigdon@gmail.com', @@ -21,7 +21,7 @@ my ($REV) = '$Rev: 358 $' =~ /(\d+)/; . 'Can optionally set your bitlbee /away message to same', license => 'GNU GPL v2', url => 'http://tinyurl.com/twirssi', - changed => '$Date: 2009-01-13 21:02:17 -0800 (Tue, 13 Jan 2009) $', + changed => '$Date: 2009-01-19 23:31:12 -0800 (Mon, 19 Jan 2009) $', ); my $window; @@ -597,8 +597,11 @@ sub do_updates { unless ( ref $tweets ) { if ( $obj->can("get_error") ) { + my $error; + eval { $error = JSON::Any->jsonToObj( $obj->get_error() ) }; + if ($@) { $error = $obj->get_error() } print $fh "type:debug API Error during friends_timeline call: ", - JSON::Any->jsonToObj( $obj->get_error() ), " Aborted.\n"; + "$error Aborted.\n"; } else { print $fh "type:debug API Error during friends_timeline call. Aborted.\n";