X-Git-Url: http://git.ieval.ro/?p=gruntmaster-daemon.git;a=blobdiff_plain;f=lib%2FGruntmaster%2FDaemon.pm;h=4f3360ca420df63f90cb4863e63ef9700c7c5ca6;hp=1e5d8b2874ceb3cf3a1e24defc47c84d535cab45;hb=b4ac22ff03c95b0a2da0131b2fb3134b27379570;hpb=01d5951581c7d82b42a3cc78942287ead79d2ca3 diff --git a/lib/Gruntmaster/Daemon.pm b/lib/Gruntmaster/Daemon.pm index 1e5d8b2..4f3360c 100644 --- a/lib/Gruntmaster/Daemon.pm +++ b/lib/Gruntmaster/Daemon.pm @@ -35,19 +35,13 @@ use constant FORMAT_EXTENSION => { my $db; -sub safe_can_nodie { +sub safe_can { my ($type, $sub, $name) = @_; return unless $name =~ /^\w+$/s; my $pkg = __PACKAGE__ . "::${type}::${name}"; eval "require $pkg" or get_logger->warn("Error while requiring $pkg: $@"); - $pkg->can($sub); -} - -sub safe_can { - my ($type, $sub, $name) = @_; - - safe_can_nodie @_ or get_logger->logdie("No such \l$type: '$name'"); + $pkg->can($sub) or get_logger->logdie("No such \l$type: '$name'"); } sub process{ @@ -141,7 +135,7 @@ sub process{ problem => $jobr->problem, owner => $jobr->owner, job => $jobr->id, - solved => $solved}) if !$jobr->problem->private; + solved => $solved}) if !$jobr->problem->is_private; } sub got_job{