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/Chroot.pm  | 2 +-
 lib/Iurt/Process.pm | 4 ++--
 lib/Iurt/Urpmi.pm   | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib')

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);
 
-- 
cgit v1.2.1