From ecda72f5bb0adb71d783039a24322f9aac324647 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sat, 10 Aug 2024 18:35:42 +0200
Subject: DBWagenreihung: fix misleading 'station data' message in errstr

---
 lib/Travel/Status/DE/DBWagenreihung.pm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'lib/Travel')

diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm
index cbc30de..99291e3 100644
--- a/lib/Travel/Status/DE/DBWagenreihung.pm
+++ b/lib/Travel/Status/DE/DBWagenreihung.pm
@@ -83,15 +83,14 @@ sub get_wagonorder {
 			number           => $train_number,
 			time             => $time
 		};
-		my ( $content, $err ) = $self->get_with_cache(
-			$cache,
-			$api_base . '?'
-			  . join( '&',
-				map { $_ . '=' . $self->{param}{$_} } keys %{ $self->{param} } )
-		);
+		my $url
+		  = $api_base . '?'
+		  . join( '&',
+			map { $_ . '=' . $self->{param}{$_} } keys %{ $self->{param} } );
+		my ( $content, $err ) = $self->get_with_cache( $cache, $url );
 
 		if ($err) {
-			$self->{errstr} = "Failed to fetch station data: $err";
+			$self->{errstr} = "GET $url: $err";
 			return;
 		}
 		$json = $self->{from_json} = $self->{json}->utf8->decode($content);
-- 
cgit v1.2.3