diff options
author | Daniel Friesel <derf@finalrewind.org> | 2015-09-08 22:35:45 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2015-09-08 22:35:45 +0200 |
commit | 4caa67e1f2ca8ec055acf24f04d99da028e5c06f (patch) | |
tree | 614fd80a03c8abdaf31e6c958aa8f7112af065c0 /lib | |
parent | 2ee0cde57bcd57140bd58f52b8dd09c9a95c9f43 (diff) |
IRIS exceptions: remove misleading "server returned" part
("500 Can't connect to ..." is also possible)
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 8f4e381..dae39b9 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -46,7 +46,7 @@ sub new { my $res_st = $ua->get( $self->{iris_base} . '/station/' . $opt{station} ); if ( $res_st->is_error ) { - $self->{errstr} = 'Failed to fetch station data: Server returned ' + $self->{errstr} = 'Failed to fetch station data: ' . $res_st->status_line; return $self; } @@ -188,7 +188,7 @@ sub get_timetable { } if ( $res->is_error ) { - $self->{warnstr} = 'Failed to fetch a schedule part: Server returned ' + $self->{warnstr} = 'Failed to fetch a schedule part: ' . $res->status_line; return $self; } @@ -216,7 +216,7 @@ sub get_realtime { } if ( $res->is_error ) { - $self->{warnstr} = 'Failed to fetch realtime data: Server returned ' + $self->{warnstr} = 'Failed to fetch realtime data: ' . $res->status_line; return $self; } |