From 047cb7b3e9f694c3e6654102bff3ae2bfd457be8 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 27 Jul 2011 12:07:02 +0200
Subject: DeutscheBahn.pm: Improve error handling (add ->errstr accessor)

---
 bin/db-ris | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'bin/db-ris')

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;
-- 
cgit v1.2.3