chomp;
s,\s*#.*,,;
next unless $_;
my ($p, $c) = split(/:\s*/);
$pas->{$p} = { arch => [ split(/\s+/, $c) ], mode => substr($c, 0, 1) ne '!' };
}
chomp;
s,\s*#.*,,;
next unless $_;
my ($p, $c) = split(/:\s*/);
$pas->{$p} = { arch => [ split(/\s+/, $c) ], mode => substr($c, 0, 1) ne '!' };
}