summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-04-03 09:36:54 +0000
committerOlivier Blin <oblin@mandriva.com>2008-04-03 09:36:54 +0000
commit32d0b8ad8b86e5aab6de1af93c635fc707895737 (patch)
treeed20d3e18c17f204999d6d687ecf6c7e0b79d94b /lib
parent3af3291c883fc3c29438fa0e009e224ae9d7d8a2 (diff)
downloadperl-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.pm5
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());
}