diff -Nur --no-dereference e-smith-base-5.8.1.old/root/etc/e-smith/events/actions/group-modify-unix e-smith-base-5.8.1/root/etc/e-smith/events/actions/group-modify-unix --- e-smith-base-5.8.1.old/root/etc/e-smith/events/actions/group-modify-unix 2014-03-23 22:47:24.000000000 -0400 +++ e-smith-base-5.8.1/root/etc/e-smith/events/actions/group-modify-unix 2021-11-23 00:04:55.910000000 -0500 @@ -42,15 +42,15 @@ my $event = shift || die "Event name arg missing\n";; my @groups; -if ($event eq 'post-upgrade') +if ( scalar @ARGV ) { - @groups = $a->groups; + @groups = map { $a->get($_); } @ARGV; } else { - die "Group name arg missing\n" unless scalar @ARGV; - @groups = map { $a->get($_); } @ARGV; + @groups = $a->groups; } + foreach my $group (@groups) { my $groupName = $group->key;