diff options
-rw-r--r-- | lib/Iurt/Chroot.pm | 2 | ||||
-rw-r--r-- | lib/Iurt/Process.pm | 4 | ||||
-rw-r--r-- | lib/Iurt/Urpmi.pm | 2 |
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); |