diff options
-rwxr-xr-x | draco.pl | 2 |
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; } |