diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-12-04 22:44:10 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-12-04 22:44:10 +0000 |
| commit | abf8e8d1df6bf7befab419d3f22aabbf33beef44 (patch) | |
| tree | 886088ff570fba73b90797a92e44576d3d437b5e | |
| parent | 5a3afc8f659a01ac295e24383ec4ac18e7d58cef (diff) | |
| download | iurt-abf8e8d1df6bf7befab419d3f22aabbf33beef44.tar iurt-abf8e8d1df6bf7befab419d3f22aabbf33beef44.tar.gz iurt-abf8e8d1df6bf7befab419d3f22aabbf33beef44.tar.bz2 iurt-abf8e8d1df6bf7befab419d3f22aabbf33beef44.tar.xz iurt-abf8e8d1df6bf7befab419d3f22aabbf33beef44.zip | |
perl_checker cleanups
| -rwxr-xr-x | iurt | 4 | ||||
| -rw-r--r-- | lib/Iurt/Process.pm | 2 |
2 files changed, 3 insertions, 3 deletions
@@ -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"); |