Pretty hard for eval { setpwent(); getpwent(); 1 } to return false.

p4raw-id: //depot/perl@12590

diff --git a/t/op/taint.t b/t/op/taint.t
index 4e75c54..6254eb9 100755 (executable)
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -577,7 +577,7 @@ else {
 # Test for system/library calls returning string data of dubious origin.
 {
     # No reliable %Config check for getpw*
-    if (eval { setpwent(); getpwent(); 1 }) {
+    if (eval { setpwent(); getpwent() }) {
        setpwent();
        my @getpwent = getpwent();
        die "getpwent: $!\n" unless (@getpwent);