From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 22 Oct 2001 20:27:47 +0000 (+0000)
Subject: Pretty hard for eval { setpwent(); getpwent(); 1 } to return false.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5dec6e322043a8c2821e3800767955c8c7877536;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);