DBDB: It's $tx->res->code
This commit is contained in:
parent
cecf3491d5
commit
9dc5d26380
1 changed files with 2 additions and 2 deletions
|
@ -72,7 +72,7 @@ sub has_wagonorder_p {
|
|||
$promise->resolve('a');
|
||||
}
|
||||
else {
|
||||
my $code = $tx->code;
|
||||
my $code = $tx->res->code;
|
||||
$self->{log}->debug("${debug_prefix}: n (HTTP $code)");
|
||||
$cache->set( "HEAD $url", 'n' );
|
||||
$promise->reject;
|
||||
|
@ -132,7 +132,7 @@ sub get_wagonorder_p {
|
|||
$promise->resolve($json);
|
||||
}
|
||||
else {
|
||||
my $code = $tx->code;
|
||||
my $code = $tx->res->code;
|
||||
$self->{log}->debug("${debug_prefix}: HTTP ${code}");
|
||||
$promise->reject("HTTP ${code}");
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue