diff --git a/remove.pl b/remove.pl index f52b235..5f5d8d8 100755 --- a/remove.pl +++ b/remove.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# Copyright (c) 2019-2021 Mischa Peters +# Copyright (c) 2019-2023 Mischa Peters # # Permission to use, copy, modify, and distribute this software for any # purpose with or without fee is hereby granted, provided that the above @@ -74,7 +74,7 @@ sub remove_accounts { printf "userdel(8) user:\n"; for my $vm_name (sort keys %vms) { my $_instance = $vms{$vm_name}{'instance'} || $vm_name; - my $_owner = $vms{$vm_name}{'owner'} || $vms{$vm_name}{'username'}; + my $_owner = $vms{$vm_name}{'username'}; my $_group = $conf{'conf'}{'VMDUSERS'}; my $id = getpwnam("$_owner");