SysV msg queues can be something hanging (witnessed in IRIX),

[p5sagit/p5-mst-13.2.git] / ext / IPC / SysV / t / msg.t

diff --git a/ext/IPC/SysV/t/msg.t b/ext/IPC/SysV/t/msg.t
index e20d93c..fde699c 100755 (executable)
--- a/ext/IPC/SysV/t/msg.t
+++ b/ext/IPC/SysV/t/msg.t
@@ -35,8 +35,7 @@ print "ok 1\n";
 #Putting a message on the queue
 $msgtype = 1;
 $msg = "hello";
-$msq->snd($msgtype,$msg,0) || print "not ";
-print "ok 2\n";
+print $msq->snd($msgtype,$msg,IPC_NOWAIT) ? "ok 2\n" : "not ok 2 # $!\n";
 
 #Check if there are messages on the queue
 $ds = $msq->stat() or print "not ";