Lucas/PoorBooru
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

all: prefer postfix dereference syntax

Browse source
This commit is contained in:
Lucas 2023-03-21 21:43:36 +00:00
parent 56ee34eb7c
commit 396ab297a8
5 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/SeaweedFS/Client.pm
View file

@ -34,17 +34,17 @@ sub url_for
my $vid = $fid->volume_id;
if (!defined($self->{_vurls}{$vid}) || @{$self->{_vurls}{$vid}} == 0) {
if (!defined($self->{_vurls}{$vid}) || $self->{_vurls}{$vid}->@* == 0) {
my $res = $self->{_ua}
->get("$self->{_murl}/dir/lookup?fileId=$fid&read=yes")
->result;
$self->{_vurls}{$vid} = [
map { $_->{publicUrl} } @{$res->json->{locations}}
map { $_->{publicUrl} } $res->json->{locations}->@*
];
}
my $url = sample(1, @{$self->{_vurls}{$vid}});
my $url = sample(1, $self->{_vurls}{$vid}->@*);
return undef unless defined $url;
$url = "http://$url" if $url !~ m{^https?://};