From 09c658110f06839ac776873506c8541cccfd0739 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Wed, 18 Dec 2013 14:42:22 +1100
Subject: [perl #120635] don't leak semaphores

I was calling semctl() with parameters in the incorrect order
---
 t/io/sem.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 't/io/sem.t')

diff --git a/t/io/sem.t b/t/io/sem.t
index 272c39630b..0352bcf457 100644
--- a/t/io/sem.t
+++ b/t/io/sem.t
@@ -24,7 +24,7 @@ use IPC::SysV qw/ IPC_PRIVATE S_IRUSR S_IWUSR IPC_RMID SETVAL GETVAL SETALL GETA
 
 my $id;
 my $nsem = 10;
-END { semctl $id, IPC_RMID, 0, 0 if defined $id }
+END { semctl $id, 0, IPC_RMID, 0 if defined $id }
 
 {
     local $SIG{SYS} = sub { skip_all("SIGSYS caught") } if exists $SIG{SYS};
-- 
cgit v1.2.1