diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-28 08:27:15 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-28 08:27:15 +0000 |
| commit | ddc3217d4aaa98853c093e6ed327d581bfffaa03 (patch) | |
| tree | 602f4f5c8b74579b9f18aedf5f94e66178b4b0c4 /ext/IPC | |
| parent | 0891a229ed34cb34ddb76f1813dcb76d39a174fb (diff) | |
| download | perl-ddc3217d4aaa98853c093e6ed327d581bfffaa03.tar.gz | |
SysV msg queues can be something hanging (witnessed in IRIX),
so let's use IPC_NOWAIT.
p4raw-id: //depot/perl@19358
Diffstat (limited to 'ext/IPC')
| -rwxr-xr-x | ext/IPC/SysV/t/msg.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ext/IPC/SysV/t/msg.t b/ext/IPC/SysV/t/msg.t index e20d93c7c5..fde699c301 100755 --- 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 "; |