diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-21 08:56:58 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-21 08:56:58 +0000 |
| commit | f12fdbba4acfe54da2d4ed96d2d7ff8f0a47cb7d (patch) | |
| tree | af7593a8700e21dbd8f4004733dce66f37ef649d /t | |
| parent | 4b4f7d5b16c3cd736045fbd7a98287b8127392a0 (diff) | |
| parent | 916aa023c610cacd300649e75361fb3e3081e6f0 (diff) | |
| download | perl-f12fdbba4acfe54da2d4ed96d2d7ff8f0a47cb7d.tar.gz | |
integrate cfgperl and vmsperl contents into mainline
p4raw-id: //depot/perl@5853
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)) { |