diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-04-03 09:36:54 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-04-03 09:36:54 +0000 |
| commit | 32d0b8ad8b86e5aab6de1af93c635fc707895737 (patch) | |
| tree | ed20d3e18c17f204999d6d687ecf6c7e0b79d94b /lib | |
| parent | 3af3291c883fc3c29438fa0e009e224ae9d7d8a2 (diff) | |
| download | perl-MDK-Common-32d0b8ad8b86e5aab6de1af93c635fc707895737.tar perl-MDK-Common-32d0b8ad8b86e5aab6de1af93c635fc707895737.tar.gz perl-MDK-Common-32d0b8ad8b86e5aab6de1af93c635fc707895737.tar.bz2 perl-MDK-Common-32d0b8ad8b86e5aab6de1af93c635fc707895737.tar.xz perl-MDK-Common-32d0b8ad8b86e5aab6de1af93c635fc707895737.zip | |
fix previous users list commit
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/MDK/Common/System.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/MDK/Common/System.pm b/lib/MDK/Common/System.pm index 08ea8df..b4f43c8 100644 --- a/lib/MDK/Common/System.pm +++ b/lib/MDK/Common/System.pm @@ -188,6 +188,7 @@ L<MDK::Common> use MDK::Common::Math; use MDK::Common::File; +use MDK::Common::DataStructure; use Exporter; our @ISA = qw(Exporter); @@ -279,7 +280,7 @@ sub list_passwd() { @l; } sub list_home() { - uniq(map { $_->[7] } grep { $_->[2] >= 500 } list_passwd()); + MDK::Common::DataStructure::uniq(map { $_->[7] } grep { $_->[2] >= 500 } list_passwd()); } sub list_skels { my ($prefix, $suffix) = @_; @@ -287,7 +288,7 @@ sub list_skels { } sub list_users() { - uniq(map { 500 <= $_->[2] && $_->[0] ne "nobody" ? $_->[0] : () } list_passwd()); + MDK::Common::DataStructure::uniq(map { 500 <= $_->[2] && $_->[0] ne "nobody" ? $_->[0] : () } list_passwd()); } |