diff options
| author | Tony Sanders <sanders@bsdi.com> | 1997-08-24 10:17:29 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-09-05 00:00:00 +0000 |
| commit | 0806a92ffc3a74ca70aa81051cdf2a306cd0a8af (patch) | |
| tree | 2ae9122249fd05172f30124ac40d6193d9f318ff /eg | |
| parent | 4a8e146e38ec2045f1f817a7cb578e1b1f80f39f (diff) | |
| download | perl-0806a92ffc3a74ca70aa81051cdf2a306cd0a8af.tar.gz | |
eg/sysvipc/ipcsem bug, new hints/bsdos.sh
There appears to be a bug in the example ipcsem with the number of
arguments to the SYSV IPC semop() function -- the POD's agree that
it only takes two arguments now.
The version of hints/bsdos.sh below has been cleaned up and
updated for the next BSD/OS release.
p5p-msgid: 199708272301.RAA12803@austin.bsdi.com
Diffstat (limited to 'eg')
| -rw-r--r-- | eg/sysvipc/ipcsem | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/eg/sysvipc/ipcsem b/eg/sysvipc/ipcsem index 4d871b901a..e0dc551bc5 100644 --- a/eg/sysvipc/ipcsem +++ b/eg/sysvipc/ipcsem @@ -18,7 +18,7 @@ print "semaphore id: $id\n"; if ($signal) { while (<STDIN>) { print "Signalling\n"; - unless (semop($id, 0, pack("sss", 0, 1, 0))) { + unless (semop($id, pack("sss", 0, 1, 0))) { die "Can't signal semaphore: $!\n"; } } @@ -26,7 +26,7 @@ if ($signal) { else { $SIG{'INT'} = $SIG{'QUIT'} = "leave"; for (;;) { - unless (semop($id, 0, pack("sss", 0, -1, 0))) { + unless (semop($id, pack("sss", 0, -1, 0))) { die "Can't wait for semaphore: $!\n"; } print "Unblocked\n"; |