diff options
| author | Matthew Somerville <matthew-github@dracos.co.uk> | 2018-12-07 09:57:20 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2018-12-08 09:29:58 +0000 |
| commit | 24226966c3796cf0fad8b26ae2d067bb4aab4748 (patch) | |
| tree | b52330625566c072697dcca4ebaabc7828720399 /perllib | |
| parent | 0e84e1a8f51af275b1b0e8400d23b6dffeb4303c (diff) | |
[Open311] Prevent warning on bad error response.
Diffstat (limited to 'perllib')
| -rw-r--r-- | perllib/Open311.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 56fe567c5..c0e27f96b 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -539,8 +539,11 @@ sub _process_error { my $msg = ''; if ( ref $obj && exists $obj->{error} ) { - my $errors = $obj->{error}; - $msg .= sprintf( "%s: %s\n", $_->{code}, $_->{description} ) for @{ $errors }; + for (@{ $obj->{error} }) { + my $code = $_->{code} || '???'; + my $desc = $_->{description} || 'unknown error'; + $msg .= sprintf("%s: %s\n", $code, $desc); + } } return $msg || 'unknown error'; |