DeutscheBahn.pm: Improve error handling (add ->errstr accessor)

1 files changed, 5 insertions, 0 deletions

diff --git a/bin/db-ris b/bin/db-ris
index a61dc07..8117d39 100755
--- a/bin/db-ris
+++ b/bin/db-ris
@@ -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;