Ids of msgs and sems can be zero, so change || die to a defined() test

p4raw-id: //depot/win32/perl@1026

diff --git a/t/op/ipcmsg.t b/t/op/ipcmsg.t
index ab2b073..72e345c 100755 (executable)
--- a/t/op/ipcmsg.t
+++ b/t/op/ipcmsg.t
@@ -110,8 +110,9 @@ 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);
+# Very first time called after machine is booted value may be 0 
+die "msgget failed: $!\n" unless defined($msg) && $msg >= 0;
 
 print "ok 1\n";
 

diff --git a/t/op/ipcsem.t b/t/op/ipcsem.t
index f71f810..a1450ff 100755 (executable)
--- a/t/op/ipcsem.t
+++ b/t/op/ipcsem.t
@@ -115,8 +115,9 @@ exit;
 
 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);
+# Very first time called after machine is booted value may be 0 
+die "semget: $!\n" unless defined($sem) && $sem >= 0;
 
 print "ok 1\n";