(clean) drop unused arg

3 files changed, 4 insertions, 4 deletions

diff --git a/lib/Iurt/Chroot.pm b/lib/Iurt/Chroot.pm
index 55a31c9..fc40ef5 100644
--- a/lib/Iurt/Chroot.pm
+++ b/lib/Iurt/Chroot.pm
@@ -238,7 +238,7 @@ sub remove_chroot {
 
 sub clean_mnt {
     my ($run, $mount_point, $verbose) = @_;
-    return clean($run, $mount_point, "/sbin/fuser", "$sudo /sbin/fuser -k", $verbose);
+    return clean($mount_point, "/sbin/fuser", "$sudo /sbin/fuser -k", $verbose);
 }
 
 sub clean_all_chroot_tmp {
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.";
diff --git a/lib/Iurt/Urpmi.pm b/lib/Iurt/Urpmi.pm
index dd593be..5ef407e 100644
--- a/lib/Iurt/Urpmi.pm
+++ b/lib/Iurt/Urpmi.pm
@@ -6,7 +6,7 @@ use File::Basename;
 use File::NCopy qw(copy);
 use MDV::Distribconf::Build;
 use Iurt::Chroot qw(add_local_user create_temp_chroot check_build_chroot);
-use Iurt::Process qw(perform_command clean clean_process sudo);
+use Iurt::Process qw(perform_command clean_process sudo);
 use Iurt::Config qw(dump_cache_par get_maint get_package_prefix);
 use Iurt::Util qw(plog);