This is an automated email from the git hooks/post-receive script. intrigeri pushed a commit to branch experimental in repository libnet-dbus-perl.
commit fdb44e1a426b2e30f108d816b483d5c5e1677e32 Author: Daniel P. Berrange <[email protected]> Date: Mon Dec 27 16:34:17 2004 +0000 Run the callbacks before creating the bitmasks for select --- lib/Net/DBus/Reactor.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lib/Net/DBus/Reactor.pm b/lib/Net/DBus/Reactor.pm index 17b2f5f..3117fa9 100644 --- a/lib/Net/DBus/Reactor.pm +++ b/lib/Net/DBus/Reactor.pm @@ -321,7 +321,13 @@ not required in day-to-day use. sub step { my $self = shift; + + my @callbacks = $self->_dispatch_hook(); + foreach my $callback (@callbacks) { + $callback->invoke; + } + my ($ri, $ric) = $self->_bits("read"); my ($wi, $wic) = $self->_bits("write"); my ($ei, $eic) = $self->_bits("exception"); @@ -331,13 +337,7 @@ sub step { $self->{running} = 0; return; } - - my @callbacks = $self->_dispatch_hook(); - - foreach my $callback (@callbacks) { - $callback->invoke; - } - + my ($ro, $wo, $eo); my $n = select($ro=$ri,$wo=$wi,$eo=$ei, (defined $timeout ? ($timeout ? $timeout/1000 : 0) : undef)); @@ -369,11 +369,11 @@ sub _bits { my $self = shift; my $type = shift; my $vec = ''; - + my $count = 0; foreach (keys %{$self->{fds}->{$type}}) { next unless $self->{fds}->{$type}->{$_}->{enabled}; - + $count++; vec($vec, $_, 1) = 1; } -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
