From ee9645ee5c60ee5bdce25de9c6a85c5e6a5d3baf Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 24 Mar 2012 15:36:59 +0000
Subject: (clean) drop 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 f53c5e0..90c16df 100644
--- a/lib/Iurt/Process.pm
+++ b/lib/Iurt/Process.pm
@@ -309,11 +309,11 @@ sub perform_command {
 
 sub clean_process {
     my ($run, $match, $verbose) = @_;
-    return clean($run, $match, "pgrep -u root -f", "$sudo pkill -9 -u root -f", $verbose);
+    return clean($match, "pgrep -u root -f", "$sudo pkill -9 -u root -f", $verbose);
 }
 
 sub clean {
-    my ($_run, $var, $cmd, $kill_cmd, $_verbose) = @_;
+    my ($var, $cmd, $kill_cmd, $_verbose) = @_;
 
     plog('DEBUG', "clean command $var");
     $var or die "FATAL: no command given\n.";
-- 
cgit v1.2.1