my %perfect;
my %seen;
+setpwent();
while (<PW>) {
chomp;
my @s = split /:/;
}
$n++;
}
+endpwent();
if (keys %perfect == 0) {
$max++;
my @pw1;
-endpwent();
setpwent();
for (1..$max) {
my $pw = scalar getpwent();
last unless defined $pw;
push @pw1, $pw;
}
+endpwent();
my @pw2;
-endpwent();
setpwent();
for (1..$max) {
my ($pw) = (getpwent());
last unless defined $pw;
push @pw2, $pw;
}
+endpwent();
print "not " unless "@pw1" eq "@pw2";
print "ok ", $tst++, "\n";