GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

IRC.pm: minor syntax clean-up

This commit is contained in:
Pragmatic Software 2021-06-21 10:53:18 -07:00
parent d395fd41af
commit 8f365d8eeb
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
PBot/IRC.pm
View File

@ -137,23 +137,22 @@ sub do_one_loop {
$scheduledevent = $self->schedulequeue->dequeue(); $scheduledevent = $self->schedulequeue->dequeue();
$scheduledevent->content->{coderef}->(@{$scheduledevent->content->{args}}); $scheduledevent->content->{coderef}->(@{$scheduledevent->content->{args}});
} }
if (!$self->schedulequeue->is_empty() && $nexttimer && $self->schedulequeue->head->time < $nexttimer) { $nexttimer = $self->schedulequeue->head->time; }
if (!$self->schedulequeue->is_empty() && $nexttimer && $self->schedulequeue->head->time < $nexttimer) {
$nexttimer = $self->schedulequeue->head->time;
}
} }
# Block until input arrives, then hand the filehandle over to the # Block until input arrives, then hand the filehandle over to the
# user-supplied coderef. Look! It's a freezer full of government cheese! # user-supplied coderef. Look! It's a freezer full of government cheese!
if ($nexttimer) { $timeout = $nexttimer - $time < $self->{_timeout} ? $nexttimer - $time : $self->{_timeout}; } if ($nexttimer) {
else { $timeout = $self->{_timeout}; } $timeout = $nexttimer - $time < $self->{_timeout} ? $nexttimer - $time : $self->{_timeout};
foreach $ev ( } else {
IO::Select->select( $timeout = $self->{_timeout};
$self->{_read}, }
$self->{_write},
$self->{_error}, foreach $ev (IO::Select->select($self->{_read}, $self->{_write}, $self->{_error}, $timeout)) {
$timeout
)
)
{
foreach $sock (@{$ev}) { foreach $sock (@{$ev}) {
my $conn = $self->{_connhash}->{$sock}; my $conn = $self->{_connhash}->{$sock};
$conn or next; $conn or next;