From d02495aa7c5a12003a7affab58a79d96c7e2377e Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20Kr=C3=BCger?= <jk@jk.gs>
Date: Fri, 5 Nov 2010 03:03:43 +0100
Subject: [PATCH] jobd: fix Perl gotchas in SIGCHLD handler
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

This time, Perl decided to turn an array into a scalar when I *didn't*
want it to. Balance is restored now.

Signed-off-by: Jan Krüger <jk@jk.gs>
---
 jobd/jobd.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/jobd/jobd.pl b/jobd/jobd.pl
index 93f20c3..b82d054 100755
--- a/jobd/jobd.pl
+++ b/jobd/jobd.pl
@@ -110,11 +110,11 @@ sub handle_exit {
 sub handle_childgone {
 	my $pid = wait;
 	if ($pid != -1) {
-		my $child = grep { $_->{'pid'} == $pid } @running;
+		my @child = grep { $_->{'pid'} == $pid } @running;
 		if ($?) {
 			# XXX- we currently don't care
 		}
-		$child->{'finished'} = 2;
+		$child[0]->{'finished'} = 2 if (@child);
 		$jobs_executed++;
 	}
 	# Just to be safe
-- 
2.11.4.GIT