diff options
author | Chip Salzenberg <chip@pobox.com> | 1999-04-27 13:36:27 +0000 |
---|---|---|
committer | Todd Rinaldo <toddr@cpanel.net> | 2019-10-19 07:03:09 -0500 |
commit | eaee4b2cbd25c5f6cf890add1e7be9dc2f9d3474 (patch) | |
tree | d6487fcf9749424a3552dc39051411d0b4a24f1d | |
parent | 358930170b1ad31bc3c6c7d476adbd75811527fa (diff) | |
download | perl-eaee4b2cbd25c5f6cf890add1e7be9dc2f9d3474.tar.gz |
Fix SysV IPC tests to allow for ids of zero.
p4raw-id: //depot/maint-5.004/perl@3287
-rwxr-xr-x | t/op/ipcmsg.t | 4 | ||||
-rwxr-xr-x | t/op/ipcsem.t | 5 |
2 files changed, 5 insertions, 4 deletions
diff --git a/t/op/ipcmsg.t b/t/op/ipcmsg.t index ab2b0737e9..6fa3fe4561 100755 --- a/t/op/ipcmsg.t +++ b/t/op/ipcmsg.t @@ -110,8 +110,8 @@ use strict; print "1..6\n"; -my $msg = msgget($IPC_PRIVATE, $S_IRWXU | $S_IRWXG | $S_IRWXO) - || die "msgget failed: $!\n"; +my $msg = msgget($IPC_PRIVATE, $S_IRWXU | $S_IRWXG | $S_IRWXO); +die "msgget failed: $!\n" unless defined($msg); print "ok 1\n"; diff --git a/t/op/ipcsem.t b/t/op/ipcsem.t index 73b8a8f351..572ccb884e 100755 --- a/t/op/ipcsem.t +++ b/t/op/ipcsem.t @@ -110,8 +110,9 @@ use strict; print "1..10\n"; -my $sem = semget($IPC_PRIVATE, 10, $S_IRWXU | $S_IRWXG | $S_IRWXO | $IPC_CREAT) - || die "semget: $!\n"; +my $sem = semget($IPC_PRIVATE, 10, + $S_IRWXU | $S_IRWXG | $S_IRWXO | $IPC_CREAT); +die "semget failed: $!\n" unless defined($sem); print "ok 1\n"; |