$pw = new FileHandle $passwd_in, O_RDONLY or die "open($passwd_in): $!";
while ($line = $pw->getline) {
chomp $line;
- @f = split /:/, $line;
+ my @f = split /:/, $line;
$#f = 6;
$a = { data => [ @f ], name => $f[0], uid => $f[2], gid => $f[3] };
$ubynam{$a->{name}} = $ubyuid{$a->{uid}} = $a;
$gr = new FileHandle $group_in, O_RDONLY or die "open($group_in): $!";
while ($line = $gr->getline) {
chomp $line;
- @f = split /:/, $line;
+ my @f = split /:/, $line;
$#f = 3;
$a = { data => [ @f ],
members => { hashify(split /,/, $f[3]) },
if ($spw = new FileHandle $shadow_in, O_RDONLY) {
while ($line = $spw->getline) {
chomp $line;
- @f = split /:/, $line;
+ my @f = split /:/, $line;
$#f = 8;
$a = { data => [ @f ], name => $f[0] };
$subynam{$a->{name}} = $a;
if ($sgr = new FileHandle $gshadow_in, O_RDONLY) {
while ($line = $sgr->getline) {
chomp $line;
- @f = split /:/, $line;
+ my @f = split /:/, $line;
$#f = 3;
$a = { data => [ @f ],
members => { hashify (split /,/, $f[3]) },