X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FMiniLoop.pm;h=faa4a38d371911d60ecfaa452447ba3f8eb5c772;hp=8465c967e7f744ccce779ee8027510515f22bc71;hb=8c3529062a426181861d58ee59fb8f10e0be68e5;hpb=e1a0b9ca22fab8555fb597473b6f3a4074d7b48b diff --git a/lib/Object/Remote/MiniLoop.pm b/lib/Object/Remote/MiniLoop.pm index 8465c96..faa4a38 100644 --- a/lib/Object/Remote/MiniLoop.pm +++ b/lib/Object/Remote/MiniLoop.pm @@ -146,8 +146,10 @@ sub loop_once { my $write_count = 0; my @c = caller; my $wait_time = $self->_next_timer_expires_delay; - log_trace { sprintf("Run loop: loop_once() has been invoked by $c[1]:$c[2] with read:%i write:%i select timeout:%s", - scalar(keys(%$read)), scalar(keys(%$write)), defined $wait_time ? $wait_time : 'indefinite' ) }; + log_trace { + sprintf("Run loop: loop_once() has been invoked by $c[1]:$c[2] with read:%i write:%i select timeout:%s", + scalar(keys(%$read)), scalar(keys(%$write)), defined $wait_time ? $wait_time : 'indefinite' ) + }; my ($readable, $writeable) = IO::Select->select( $self->_read_select, $self->_write_select, undef, $wait_time ); @@ -207,7 +209,7 @@ sub loop_once { sub want_run { my ($self) = @_; - Dlog_debug { "Run loop: Incrimenting want_running, is now $_" } + Dlog_debug { "Run loop: Incremeting want_running, is now $_" } ++$self->{want_running}; }