Use setxxent()/endxxent().
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 2 May 2000 19:26:22 +0000 (19:26 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 2 May 2000 19:26:22 +0000 (19:26 +0000)
p4raw-id: //depot/cfgperl@6050

t/op/grent.t
t/op/pwent.t

index 19096a1..d4b0e87 100755 (executable)
@@ -67,6 +67,7 @@ my $tst = 1;
 my %perfect;
 my %seen;
 
+setgrent();
 while (<GR>) {
     chomp;
     my @s = split /:/;
@@ -111,6 +112,8 @@ while (<GR>) {
     $n++;
 }
 
+endgrent();
+
 if (keys %perfect == 0) {
     $max++;
     print <<EOEX;
@@ -140,23 +143,23 @@ print "\n";
 
 my @gr1;
 
-endgrent();
 setgrent();
 for (1..$max) {
     my $gr = scalar getgrent();
     last unless defined $gr;
     push @gr1, $gr;
 }
+endgrent();
 
 my @gr2;
 
-endgrent();
 setgrent();
 for (1..$max) {
     my ($gr) = (getgrent());
     last unless defined $gr;
     push @gr2, $gr;
 }
+endgrent();
 
 print "not " unless "@gr1" eq "@gr2";
 print "ok ", $tst++, "\n";
index bb4b500..0f67eb4 100755 (executable)
@@ -68,6 +68,7 @@ my $tst = 1;
 my %perfect;
 my %seen;
 
+setpwent();
 while (<PW>) {
     chomp;
     my @s = split /:/;
@@ -108,6 +109,7 @@ while (<PW>) {
     }
     $n++;
 }
+endpwent();
 
 if (keys %perfect == 0) {
     $max++;
@@ -138,23 +140,23 @@ print "\n";
 
 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";