X-Git-Url: http://git.ieval.ro/?p=gruntmaster-daemon.git;a=blobdiff_plain;f=lib%2FGruntmaster%2FDaemon%2FJudge%2FPoints.pm;h=e75aeb2536c3bb566b294c3eeea118f2726b966f;hp=6d13ad07f4c489dff820c0e2c10cfe48690405a6;hb=ab436d78d4cbe271d15676e5dac7b757a30d9537;hpb=ddceb393c90f620dd194c22e5e85d8c9fe87ee34;ds=sidebyside diff --git a/lib/Gruntmaster/Daemon/Judge/Points.pm b/lib/Gruntmaster/Daemon/Judge/Points.pm index 6d13ad0..e75aeb2 100644 --- a/lib/Gruntmaster/Daemon/Judge/Points.pm +++ b/lib/Gruntmaster/Daemon/Judge/Points.pm @@ -14,7 +14,7 @@ our $VERSION = '0.001'; sub judge{ no warnings qw/numeric/; get_logger->trace("Judging results: @_"); - my $points = sum 0, grep { $_+0 eq "$_" } @_; + my $points = sum 0, grep { !ref } @_; $points == 100 ? (result => AC, result_text => 'Accepted') : (result => REJ, result_text => "$points points", points => $points) }