FIX: $res->{results} has changed to $res->{statuses} on API v1.1

diff --git a/Dev/twitter/twitterbot.pl b/Dev/twitter/twitterbot.pl
index f33837b..4606d95 100755 (executable)
--- a/Dev/twitter/twitterbot.pl
+++ b/Dev/twitter/twitterbot.pl
@@ -220,8 +220,8 @@ sub or_search {
             );
         }
         VERBOSE and warn Dumper($res);
-        if ($res->{results}) {
-            foreach my $tweet (@{$res->{results}}) {
+        if ($res->{statuses}) {
+            foreach my $tweet (@{$res->{statuses}}) {
                 my $res = $bot->show_status($tweet->{id});
                 VERBOSE and warn Dumper($res);