epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Add DEBUG log

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-12-01 03:40:12 +01:00
commit 05c7f4b9c6
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ACU/Process.pm
View file

@ -139,6 +139,8 @@ sub register ($$;$$)
my $worker = Gearman::Worker->new; my $worker = Gearman::Worker->new;
log DEBUG, "Registering function $funcname on ", join(", ", @servers);
$worker->job_servers( @servers ); $worker->job_servers( @servers );
$worker->register_function($funcname => sub { return do_work($subref, $given_arg, $priority, @_); }); $worker->register_function($funcname => sub { return do_work($subref, $given_arg, $priority, @_); });