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:
4089d45
)
1.7.5 - r374 - Minor fix, avoid another unevaled call to JSON::Any
author
Dan Boger
<zigdon@irc.peeron.com>
Tue, 20 Jan 2009 07:33:54 +0000
(23:33 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Tue, 20 Jan 2009 07:33:54 +0000
(23:33 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 282113cec1b00ab3520ee1260442f543952ed0dd..ad7bf88b8901a4ef4f694ede5560cd40ec6d52f1 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-11,8
+11,8
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
use vars qw($VERSION %IRSSI);
-$VERSION = "1.7.
4
";
-my ($REV) = '$Rev: 3
58
$' =~ /(\d+)/;
+$VERSION = "1.7.
5
";
+my ($REV) = '$Rev: 3
74
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%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',
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://tinyurl.com/twirssi',
- changed => '$Date: 2009-01-1
3 21:02:17 -0800 (Tue, 13
Jan 2009) $',
+ changed => '$Date: 2009-01-1
9 23:31:12 -0800 (Mon, 19
Jan 2009) $',
);
my $window;
);
my $window;
@@
-597,8
+597,11
@@
sub do_updates {
unless ( ref $tweets ) {
if ( $obj->can("get_error") ) {
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: ",
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";
} else {
print $fh
"type:debug API Error during friends_timeline call. Aborted.\n";