Pretty hard for eval { setpwent(); getpwent(); 1 } to return false.
Jarkko Hietaniemi [Mon, 22 Oct 2001 20:27:47 +0000 (20:27 +0000)]
p4raw-id: //depot/perl@12590

t/op/taint.t

index 4e75c54..6254eb9 100755 (executable)
@@ -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);