fix plen/2 - return 0
This commit is contained in:
parent
d8c116a502
commit
f65676c232
|
@ -98,8 +98,8 @@ len({pqueue, Queues}) ->
|
||||||
|
|
||||||
plen(0, {queue, _R, _F, L}) ->
|
plen(0, {queue, _R, _F, L}) ->
|
||||||
L;
|
L;
|
||||||
plen(P, {queue, _R, _F, _}) ->
|
plen(_, {queue, _R, _F, _}) ->
|
||||||
erlang:error(badarg, [P]);
|
0;
|
||||||
plen(P, {pqueue, Queues}) ->
|
plen(P, {pqueue, Queues}) ->
|
||||||
case lists:keysearch(maybe_negate_priority(P), 1, Queues) of
|
case lists:keysearch(maybe_negate_priority(P), 1, Queues) of
|
||||||
{value, {_, Q}} -> len(Q);
|
{value, {_, Q}} -> len(Q);
|
||||||
|
|
Loading…
Reference in New Issue