Changeset d9a45a4 in lab.git for Dev/twitter/twitterbot.pl

Timestamp:

Jul 12, 2013 11:37:54 PM (11 years ago)

Author:

Ken-ichi Mito <mitty@…>

Branches:

master

Children:

6a2e5f1

Parents:

90f8850

Message:

FIX: print error message causes error

• Net::Twitter::Lite::Error->twitter_error->{errors} is sometimes simple string

File:

• Dev/twitter/twitterbot.pl (modified) (1 diff)

Dev/twitter/twitterbot.pl

@@ -303 +303 @@
         if ($@->twitter_error) {
             my $twitter_error = $@->twitter_error;
-            if (defined $twitter_error->{errors}) {
+            if (defined $twitter_error->{errors} && ref($twitter_error->{errors})) {
                 foreach my $error (@{$twitter_error->{errors}}) {
                     warn "code => "   , $error->{code}, "\n";