DBDB: It's $tx->res->code

This commit is contained in:
Birte Kristina Friesel 2024-08-11 10:31:06 +02:00
parent cecf3491d5
commit 9dc5d26380
No known key found for this signature in database
GPG key ID: 19E6E524EBB177BA

View file

@ -72,7 +72,7 @@ sub has_wagonorder_p {
$promise->resolve('a'); $promise->resolve('a');
} }
else { else {
my $code = $tx->code; my $code = $tx->res->code;
$self->{log}->debug("${debug_prefix}: n (HTTP $code)"); $self->{log}->debug("${debug_prefix}: n (HTTP $code)");
$cache->set( "HEAD $url", 'n' ); $cache->set( "HEAD $url", 'n' );
$promise->reject; $promise->reject;
@ -132,7 +132,7 @@ sub get_wagonorder_p {
$promise->resolve($json); $promise->resolve($json);
} }
else { else {
my $code = $tx->code; my $code = $tx->res->code;
$self->{log}->debug("${debug_prefix}: HTTP ${code}"); $self->{log}->debug("${debug_prefix}: HTTP ${code}");
$promise->reject("HTTP ${code}"); $promise->reject("HTTP ${code}");
} }