Change 12590 by jhi@alpha on 2001/10/22 20:27:47
Pretty hard for eval { setpwent(); getpwent(); 1 } to return false.
Affected files ...
... //depot/perl/t/op/taint.t#39 edit
Differences ...
==== //depot/perl/t/op/taint.t#39 (xtext) ====
Index: perl/t/op/taint.t
--- perl/t/op/taint.t.~1~ Mon Oct 22 14:45:05 2001
+++ perl/t/op/taint.t Mon Oct 22 14:45:05 2001
@@ -577,7 +577,7 @@
# 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);
End of Patch.
