X-Git-Url: http://git.ieval.ro/?p=gruntmaster-daemon.git;a=blobdiff_plain;f=lib%2FGruntmaster%2FDaemon%2FFormat.pm;h=dc75fa147db478ae4050be5d3a1c3b442f8e29c5;hp=2678906c70199a9acb29f87064ef66b85204d057;hb=69ea9358b59a6d8bd566c3af22247e8c2e35320f;hpb=b3f845d397437ed632d409cd665d4de01cde59cd diff --git a/lib/Gruntmaster/Daemon/Format.pm b/lib/Gruntmaster/Daemon/Format.pm index 2678906..dc75fa1 100644 --- a/lib/Gruntmaster/Daemon/Format.pm +++ b/lib/Gruntmaster/Daemon/Format.pm @@ -15,7 +15,7 @@ use List::MoreUtils qw/natatime/; use Log::Log4perl qw/get_logger/; use IPC::Signal qw/sig_name sig_num/; -our $VERSION = "5999.000_002"; +our $VERSION = "5999.000_003"; our @EXPORT_OK = qw/prepare_files/; ################################################## @@ -51,7 +51,7 @@ sub mkrun{ my $signame = sig_name $sig; die [TLE, "Time Limit Exceeded"] if $tle; die [OLE, 'Output Limit Exceeded'] if $sig && $signame eq 'XFSZ'; - die [DIED, "Crash (SIG$signame)"] if $sig && $signame != 'PIPE'; + die [DIED, "Crash (SIG$signame)"] if $sig && $signame ne 'PIPE'; die [NZX, "Non-zero exit status: " . ($? >> 8)] if $? >> 8; } else { my @fds = exists $args{fds} ? @{$args{fds}} : ();