Silence an uninitialized value warning.
authorJames E Keenan <jkeenan@cpan.org>
Sat, 6 Oct 2012 03:42:26 +0000 (23:42 -0400)
committerJames E Keenan <jkeenan@cpan.org>
Sat, 6 Oct 2012 03:42:26 +0000 (23:42 -0400)
As per precedent about 15 lines earlier in file, with respect to same
variable.

t/op/pwent.t

index 970f4e9..95a7122 100644 (file)
@@ -96,6 +96,8 @@ if (!defined $where && $Config::Config{useperlio}) {
            }
        }
        if (@rec) {
+        # see above
+        no warnings 'uninitialized';
            push @lines, join (':', @rec) . "\n";
        }
        my $data = join '', @lines;