diff options
Diffstat (limited to 'perllib/Open311.pm')
| -rw-r--r-- | perllib/Open311.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 60b658dc3..52e17e99d 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -352,7 +352,11 @@ sub _get { $self->success(1); } else { $self->success(0); - $self->error( $res->status_line ); + $self->error( sprintf( + "request failed: %s\n%s\n", + $res->status_line, + $uri->as_string + ) ); } } @@ -391,7 +395,7 @@ sub _post { return $res->decoded_content; } else { $self->success(0); - $self->error( sprintf( + $self->error( sprintf( "request failed: %s\nerror: %s\n%s\n", $res->status_line, $self->_process_error( $res->decoded_content ), |