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 | |
| parent | 4a9a8c6d04a7e4db125cddd686671189d9e914cb (diff) | |
| download | perl-09c658110f06839ac776873506c8541cccfd0739.tar.gz | |
[perl #120635] don't leak semaphores
I was calling semctl() with parameters in the incorrect order
| -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}; |