diff options
Diffstat (limited to 'bin/db-ris')
-rwxr-xr-x | bin/db-ris | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -84,6 +84,11 @@ sub display_result { return; } +if ( my $err = $status->errstr ) { + say "Request error: ${err}"; + exit 2; +} + for my $d ( $status->results() ) { my @via; |