Silence an uninitialized value warning.

As per precedent about 15 lines earlier in file, with respect to same
variable.

diff --git a/t/op/pwent.t b/t/op/pwent.t
index 970f4e9..95a7122 100644 (file)
--- a/t/op/pwent.t
+++ b/t/op/pwent.t
@@ -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;