X-Git-Url: http://git.ieval.ro/?p=gruntmaster-daemon.git;a=blobdiff_plain;f=lib%2FGruntmaster%2FDaemon%2FFormat.pm;h=2678906c70199a9acb29f87064ef66b85204d057;hp=bab6d977778c257a853069c0171c2884a66a6a3b;hb=b3f845d397437ed632d409cd665d4de01cde59cd;hpb=0a9f55a4b1492176355d7a75e08b979949b55f94 diff --git a/lib/Gruntmaster/Daemon/Format.pm b/lib/Gruntmaster/Daemon/Format.pm index bab6d97..2678906 100644 --- a/lib/Gruntmaster/Daemon/Format.pm +++ b/lib/Gruntmaster/Daemon/Format.pm @@ -36,14 +36,16 @@ sub command_and_args{ sub mkrun{ my $format = shift; sub{ + local *__ANON__ = 'mkrun_runner'; my ($name, %args) = @_; + get_logger->trace("Running $name..."); my $basename = fileparse $name, qr/\.[^.]*/; my $ret = fork // die 'Cannot fork'; if ($ret) { my $tle; local $SIG{ALRM} = sub { kill KILL => $ret; $tle = 1}; alarm $args{timeout} if exists $args{timeout}; - wait; + waitpid $ret, 0; alarm 0; my $sig = $? & 127; my $signame = sig_name $sig;