diff options
author | Tony Cook <tony@develop-help.com> | 2013-12-18 14:42:22 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2013-12-18 14:42:22 +1100 |
commit | 09c658110f06839ac776873506c8541cccfd0739 (patch) | |
tree | c5cd7f8d18a2801eacf1580cf448af13cd8328ac /t/io/sem.t | |
parent | 4a9a8c6d04a7e4db125cddd686671189d9e914cb (diff) | |
download | perl-09c658110f06839ac776873506c8541cccfd0739.tar.gz |
[perl #120635] don't leak semaphores
I was calling semctl() with parameters in the incorrect order
Diffstat (limited to 't/io/sem.t')
-rw-r--r-- | t/io/sem.t | 2 |
1 files changed, 1 insertions, 1 deletions
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}; |