From 71ac20f49f46bcc39c0060dbaabdcae34da02f38 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 24 Mar 2012 15:54:23 +0000
Subject: (clean_process) kill newly unused arg

---
 lib/Iurt/Process.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/Iurt/Process.pm')

diff --git a/lib/Iurt/Process.pm b/lib/Iurt/Process.pm
index 0099829..29d3262 100644
--- a/lib/Iurt/Process.pm
+++ b/lib/Iurt/Process.pm
@@ -227,7 +227,7 @@ sub perform_command {
 	if ($kill && $opt{type} ne 'shell') {
 	    $comment = "Command killed after $opt{timeout}s: $command\n";
 	    my ($cmd_to_kill) = $command =~ /sudo(?: chroot \S+)? (.*)/;
-	    clean_process($cmd_to_kill, $run->{verbose});
+	    clean_process($cmd_to_kill);
 	} elsif ($pipe) {
 	    $comment = "Command received SIGPIPE: $command\n";
 	    sendmail($config->{admin}, '' ,
@@ -307,7 +307,7 @@ sub perform_command {
 }
 
 sub clean_process {
-    my ($match, $verbose) = @_;
+    my ($match) = @_;
     return clean($match, "pgrep -u root -f", "$sudo pkill -9 -u root -f");
 }
 
-- 
cgit v1.2.1