X-Git-Url: http://lab.mitty.jp/git/?a=blobdiff_plain;f=Dev%2Ftwitter%2Ftwitterbot.pl;h=bb7baa0b9e82de0e999e85f12e215bd5bfaad1c3;hb=bf1a1eab8ab75f495c2d81fae907bed6a071ffae;hp=3923a6b0dda3842a07a186b234e81a41f82e7604;hpb=24fa584c806130e9dfba733db4028ca55a75e182;p=lab.git

diff --git a/Dev/twitter/twitterbot.pl b/Dev/twitter/twitterbot.pl
index 3923a6b..bb7baa0 100755
--- a/Dev/twitter/twitterbot.pl
+++ b/Dev/twitter/twitterbot.pl
@@ -143,7 +143,7 @@ if ($conf->{mail}{body}) {
     DEBUG or sendmail(%mail) or warn "Error sending mail: $Mail::Sendmail::error\n";
 }
 
-if ($tweets) {
+if (ref $tweets and keys %{$tweets}) {
     # save last status to yaml file
     DEBUG  or YAML::Tiny::DumpFile("$Bin/status.yml", $stat);
     DEBUG and warn "status.yml => ", Dumper($stat);
@@ -178,6 +178,7 @@ sub login {
     my $bot = Net::Twitter::Lite->new(
         consumer_key    => $conf->{consumer_key},
         consumer_secret => $conf->{consumer_secret},
+        legacy_lists_api => 0,
     );
     
     $bot->access_token($conf->{access_token});