X-Git-Url: http://git.ieval.ro/?p=gruntmaster-daemon.git;a=blobdiff_plain;f=lib%2FGruntmaster%2FDaemon%2FFormat.pm;h=6bd9a5e67b154a6e839e534a73e004184cd68287;hp=b80dd7dd673740f2eb712e372a5fa4a5c75b817f;hb=12e3963529a419312e04f72cabb0f8dcb2a9523a;hpb=cdd811c0738f8b83032002a04dc5c070cdb1f1ce diff --git a/lib/Gruntmaster/Daemon/Format.pm b/lib/Gruntmaster/Daemon/Format.pm index b80dd7d..6bd9a5e 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_001"; +our $VERSION = "5999.000_002"; our @EXPORT_OK = qw/prepare_files/; ################################################## @@ -49,7 +49,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; + die [DIED, "Crash (SIG$signame)"] if $sig && $signame != 'PIPE'; die [NZX, "Non-zero exit status: " . ($? >> 8)] if $?; } else { my @fds = exists $args{fds} ? @{$args{fds}} : ();