aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-12-04 22:44:10 +0000
committerThierry Vignaud <tv@mageia.org>2012-12-04 22:44:10 +0000
commitabf8e8d1df6bf7befab419d3f22aabbf33beef44 (patch)
tree886088ff570fba73b90797a92e44576d3d437b5e
parent5a3afc8f659a01ac295e24383ec4ac18e7d58cef (diff)
downloadiurt-abf8e8d1df6bf7befab419d3f22aabbf33beef44.tar
iurt-abf8e8d1df6bf7befab419d3f22aabbf33beef44.tar.gz
iurt-abf8e8d1df6bf7befab419d3f22aabbf33beef44.tar.bz2
iurt-abf8e8d1df6bf7befab419d3f22aabbf33beef44.tar.xz
iurt-abf8e8d1df6bf7befab419d3f22aabbf33beef44.zip
perl_checker cleanups
-rwxr-xr-xiurt4
-rw-r--r--lib/Iurt/Process.pm2
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");