From abf8e8d1df6bf7befab419d3f22aabbf33beef44 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 4 Dec 2012 22:44:10 +0000
Subject: perl_checker cleanups

---
 iurt                | 4 ++--
 lib/Iurt/Process.pm | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/iurt b/iurt
index bedac33..752b49c 100755
--- a/iurt
+++ b/iurt
@@ -572,8 +572,8 @@ config_init(\%config_usage, $config, \%run);
 if ($config->{env}) {
     foreach my $var (keys %{$config->{env}}) {
 	print "$var\n";
-	print $config->{env}->{$var}."\n";
-	$ENV{$var} = $config->{env}->{$var};
+	print $config->{env}{$var} . "\n";
+	$ENV{$var} = $config->{env}{$var};
     }
 }
 
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