summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rwxr-xr-xdraco.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/draco.pl b/draco.pl
index 4dddcad..c659942 100755
--- a/draco.pl
+++ b/draco.pl
@@ -152,7 +152,7 @@ sub get_response {
     print STDERR "." if $DEBUG and scalar @http_calls > 0;
     my $response = $http->get($url);
     push @http_calls, $url;
-    die "Unexpected response - $response->{status}: $response->{reason} : $url"
+    die "\nUnexpected response - $response->{status}: $response->{reason}\n$response->{content} : $url"
         unless $response->{success};
     return $response;
 }