YA resync with mainstem, including VMS patches from others

[p5sagit/p5-mst-13.2.git] / eg / sysvipc / ipcsem

diff --git a/eg/sysvipc/ipcsem b/eg/sysvipc/ipcsem
index 4d871b9..e0dc551 100644 (file)
--- 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";