diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/taint.t | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index acc1c3d280..6548b46f59 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -26,8 +26,7 @@ BEGIN { } if ($Config{d_shm} || $Config{d_msg}) { require IPC::SysV; - IPC::SysV->import(qw(IPC_PRIVATE IPC_RMID IPC_CREAT S_IRWXU - S_IRWXG S_IRWXO)); + IPC::SysV->import(qw(IPC_PRIVATE IPC_RMID IPC_CREAT S_IRWXU)); } } @@ -142,7 +141,7 @@ print "1..151\n"; } else { $tmp = (grep { defined and -d and (stat _)[2] & 2 } - qw(/tmp /var/tmp /usr/tmp /sys$scratch), + qw(sys$scratch /tmp /var/tmp /usr/tmp), @ENV{qw(TMP TEMP)})[0] or print "# can't find world-writeable directory to test PATH\n"; } @@ -618,7 +617,7 @@ else { my $sent = "foobar"; my $rcvd; my $size = 2000; - my $id = shmget(IPC_PRIVATE, $size, S_IRWXU|S_IRWXG|S_IRWXO) || + my $id = shmget(IPC_PRIVATE, $size, S_IRWXU) || warn "# shmget failed: $!\n"; if (defined $id) { if (shmwrite($id, $sent, 0, 60)) { |