Make the gruop parser handle blank lines in /etc/group

diff --git a/lib/System/Introspector/Probe/Groups.pm b/lib/System/Introspector/Probe/Groups.pm
index aa205ae..abdbb7c 100644 (file)
--- a/lib/System/Introspector/Probe/Groups.pm
+++ b/lib/System/Introspector/Probe/Groups.pm
@@ -13,6 +13,7 @@ sub gather {
         my $fh = $self->_open_group_file;
         while (defined( my $line = <$fh> )) {
             chomp $line;
+            next if !(length $line);
             my ($name, undef, $gid, $users) = split m{:}, $line;
             $users = length($users)
                 ? [split m{,}, $users]