C<not> should be C<!> in pwent.t, to fix a precedence bug.

[perl5.git] / t / op / pwent.t

diff --git a/t/op/pwent.t b/t/op/pwent.t
index 7880582..e755cf2 100644 (file)
--- a/t/op/pwent.t
+++ b/t/op/pwent.t
@@ -31,8 +31,8 @@ BEGIN {
     # Try NIS+.
     $where //= try_prog('NIS+', 'passwd.org_dir', '/bin/niscat');
 
-    if (not defined $where &&          # Try dscl
-       $Config{useperlio} eq 'define') {       # need perlio
+    if (!defined $where &&             # Try dscl
+       $Config{useperlio}) {   # need perlio
 
        # Map dscl items to passwd fields, and provide support for
        # mucking with the dscl output if we need to (and we do).