diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-22 20:27:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-22 20:27:47 +0000 |
| commit | 5dec6e322043a8c2821e3800767955c8c7877536 (patch) | |
| tree | 2d6e3efe6396871f95d4802e2aa37e291d1d30e2 /t/op/taint.t | |
| parent | 317fb1266314120941e0f6ac6394cca2dbc4ebae (diff) | |
| download | perl-5dec6e322043a8c2821e3800767955c8c7877536.tar.gz | |
Pretty hard for eval { setpwent(); getpwent(); 1 } to return false.
p4raw-id: //depot/perl@12590
Diffstat (limited to 't/op/taint.t')
| -rwxr-xr-x | t/op/taint.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index 4e75c54d26..6254eb98d7 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); |