diff options
| author | Struan Donald <struan@exo.org.uk> | 2012-11-21 08:17:53 +0000 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2012-11-21 08:17:53 +0000 |
| commit | 92d7fd49e1954f93c35977ffda84802bf9c8371e (patch) | |
| tree | a7f16c868832a4a078bd9c0431d22a6f99c1215d /perllib/Open311.pm | |
| parent | a87f6e7dc791c07f2b8c48c6904257092dcb4225 (diff) | |
slightly more useful error messages if fetching Open311 service request updates fails
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 ), |