map users by name instead of id

diff --git a/lib/System/Introspector/Users.pm b/lib/System/Introspector/Users.pm
index eeeb3a5..7db2e8a 100644 (file)
--- a/lib/System/Introspector/Users.pm
+++ b/lib/System/Introspector/Users.pm
@@ -28,7 +28,7 @@ sub gather {
             $data->{crontab} = transform_exceptions {
                 $self->_gather_crontab($user);
             };
-            $user{ $data->{uid} } = $data;
+            $user{ $data->{username} } = $data;
         }
         return { users => \%user };
     };

diff --git a/t/users.t b/t/users.t
index 2e9d653..707e9c6 100644 (file)
--- a/t/users.t
+++ b/t/users.t
@@ -6,7 +6,7 @@ use System::Introspector::Users;
 my $probe = System::Introspector::Users->new;
 my $data  = $probe->gather;
 
-ok((my $user = $data->{users}{ $> }), 'found own user');
+ok((my $user = $data->{users}{ +getlogin }), 'found own user');
 ok(defined($user->{ $_ }), "$_ is defined")
     for qw( comment crontab gid groups home shell ssh uid username );
 ok(not(exists $user->{crontab}{error}), 'no crontab error');