From 78d7cf2436d39d605a6698d9df51b88fe6f1d67d Mon Sep 17 00:00:00 2001
From: Dave Cross <dave@dave.org.uk>
Date: Tue, 27 Jan 2015 20:22:21 +0000
Subject: [PATCH] More improvements to exception handling

---
 bin/create_lists | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/bin/create_lists b/bin/create_lists
index 09a76c5628..7fd8676e0f 100755
--- a/bin/create_lists
+++ b/bin/create_lists
@@ -153,7 +153,12 @@ foreach my $con ($con_rs->all) {
     my $err = $@;
     $logger->logdie($err)
       unless blessed $err and $err->isa('Net::Twitter::Error');
-    $logger->logwarn($err->code . ': ' . $err->error);
+    $logger->logwarn($err->code . ': ' . $err->error . ' (' .
+                     $err->message . ')');
+    if ($logger->has_twitter_error) {
+      $logger->logwarn($err->twitter_error_code . ': ' .
+                       $err->twitter_error_text);
+    }
     if ($err->code == 429 or $err->code == 403) {
       $logger->logdie('Rate limit exceeded');
     } else {