diff options
Diffstat (limited to 'lib/Travel/Routing/DE/VRR.pm')
| -rw-r--r-- | lib/Travel/Routing/DE/VRR.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/Travel/Routing/DE/VRR.pm b/lib/Travel/Routing/DE/VRR.pm index c73d033..695feaa 100644 --- a/lib/Travel/Routing/DE/VRR.pm +++ b/lib/Travel/Routing/DE/VRR.pm @@ -448,6 +448,11 @@ sub submit { my $response = $self->{ua} ->post( 'http://efa.vrr.de/vrr/XSLT_TRIP_REQUEST2', $self->{post} ); + if ( $response->is_error ) { + my $errstr = $response->status_line; + confess("Could not submit POST request: ${errstr}"); + } + # XXX (workaround) # The content actually is iso-8859-1. But HTML::Message doesn't actually # decode character strings when they have that encoding. However, it |