| … | |
… | |
| 1713 | if ($self->{num_faces}) { |
1713 | if ($self->{num_faces}) { |
| 1714 | return if @{ $self->{send_queue} || [] }; |
1714 | return if @{ $self->{send_queue} || [] }; |
| 1715 | my $todo = @{ $self->{face_prefetch} } |
1715 | my $todo = @{ $self->{face_prefetch} } |
| 1716 | or return; |
1716 | or return; |
| 1717 | |
1717 | |
| 1718 | my ($face) = splice @{ $self->{face_prefetch} }, 1 + rand @{ $self->{face_prefetch} }, 1, (); |
1718 | my ($face) = splice @{ $self->{face_prefetch} }, + rand @{ $self->{face_prefetch} }, 1, (); |
| 1719 | |
1719 | |
| 1720 | $self->send ("requestinfo image_sums $face $face"); |
1720 | $self->send ("requestinfo image_sums $face $face"); |
| 1721 | |
1721 | |
| 1722 | $STATUSBOX->add (CFClient::UI::Label::escape "prefetching $todo", |
1722 | $STATUSBOX->add (CFClient::UI::Label::escape "prefetching $todo", |
| 1723 | group => "prefetch", timeout => 2, fg => [1, 1, 0, 0.5]); |
1723 | group => "prefetch", timeout => 2, fg => [1, 1, 0, 0.5]); |
