From abf8e8d1df6bf7befab419d3f22aabbf33beef44 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 4 Dec 2012 22:44:10 +0000 Subject: perl_checker cleanups --- lib/Iurt/Process.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/Iurt/Process.pm b/lib/Iurt/Process.pm index d6fadc2..d05e4c4 100644 --- a/lib/Iurt/Process.pm +++ b/lib/Iurt/Process.pm @@ -107,7 +107,7 @@ sub fork_to_monitor { kill 14, "-$parent_pid"; exit(); } - if ($stat[9] + $opt{stalled_timeout} < time()){ + if ($stat[9] + $opt{stalled_timeout} < time()) { # If nothing was written to the logfile for more than stalled_timeout, check if the system seems busy if ((getload())[1] < 0.5) { plog('ERROR', "Killing current command because it seems blocked"); -- cgit v1.2.1